! RUN: bbc %s -o - | tco | FileCheck %s
! CHECK-LABEL: define void @_QQmain()
program p
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
! CHECK-DAG: alloca { x86_fp80, x86_fp80 }, i64 1, align 16
! CHECK-DAG: alloca { fp128, fp128 }, i64 1, align 16
! CHECK-DAG: alloca { half, half }, i64 1, align 8
! CHECK-DAG: alloca { bfloat, bfloat }, i64 1, align 8
! CHECK-DAG: alloca { float, float }, i64 1, align 8
! CHECK-DAG: alloca { double, double }, i64 1, align 8
! CHECK-DAG: alloca x86_fp80, i64 1, align 16
! CHECK-DAG: alloca fp128, i64 1, align 16
! CHECK-DAG: alloca half, i64 1, align 2
! CHECK-DAG: alloca bfloat, i64 1, align 2
! CHECK-DAG: alloca float, i64 1, align 4
! CHECK-DAG: alloca double, i64 1, align 8
character(10) :: in = 'NaN NaN'
real(kind=2) :: x2
real(kind=3) :: x3
real(kind=4) :: x4
real(kind=8) :: x8
real(kind=10) :: x10
real(kind=16) :: x16
complex(kind=2) :: c2
complex(kind=3) :: c3
complex(kind=4) :: c4
complex(kind=8) :: c8
complex(kind=10) :: c10
complex(kind=16) :: c16
read(in,*) x2
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr (half, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 25, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z4)", x2
read(in,*) x3
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr (bfloat, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 26, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z4)", x3
read(in,*) x4
! CHECK: call i1 @_FortranAioOutputReal32(ptr %{{[0-9]*}}, float %{{[0-9]*}})
print "(z8)", x4
read(in,*) x8
! CHECK: call i1 @_FortranAioOutputReal64(ptr %{{[0-9]*}}, double %{{[0-9]*}})
print "(z16)", x8
read(in,*) x10
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr (x86_fp80, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 29, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z20)", x10
read(in,*) x16
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr (fp128, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 31, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z32)", x16
print*
read(in,*) c2
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr ({ half, half }, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 32, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z4,' ',z4)", c2
read(in,*) c3
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr ({ bfloat, bfloat }, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 33, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z4,' ',z4)", c3
read(in,*) c4
! CHECK: call i1 @_FortranAioOutputComplex32(ptr %{{[0-9]*}}, float %{{[0-9]*}}, float %{{[0-9]*}})
print "(z8,' ',z8)", c4
read(in,*) c8
! CHECK: call i1 @_FortranAioOutputComplex64(ptr %{{[0-9]*}}, double %{{[0-9]*}}, double %{{[0-9]*}})
print "(z16,' ',z16)", c8
read(in,*) c10
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr ({ x86_fp80, x86_fp80 }, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 36, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z20,' ',z20)", c10
read(in,*) c16
! CHECK: insertvalue { ptr, i64, i32, i8, i8, i8, i8 } { ptr undef, i64 ptrtoint (ptr getelementptr ({ fp128, fp128 }, ptr null, i32 1) to i64), i32 {{[0-9]*}}, i8 0, i8 38, i8 0, i8 0 }, ptr %{{[0-9]*}}, 0
! CHECK: call i1 @_FortranAioOutputDescriptor(ptr %{{[0-9]*}}, ptr %{{[0-9]*}})
print "(z32,' ',z32)", c16
end
Codebase Browser
llvm