61 lines · plain
1// RUN: tco %s | FileCheck %s2// RUN: %flang_fc1 -emit-llvm %s -o - | FileCheck %s3 4// CHECK: @g_i0 = global i32 05fir.global @g_i0 : i32 {6 %1 = arith.constant 0 : i327 fir.has_value %1 : i328}9 10// CHECK: @g_i2 = global i32 211fir.global @g_i2 : i32 {12 %1 = arith.constant 2 : i3213 fir.has_value %1 : i3214}15 16// CHECK: @g_ci5 = constant i32 517fir.global @g_ci5 constant : i32 {18 %c = arith.constant 5 : i3219 fir.has_value %c : i3220}21 22// CHECK: @i_i515 = internal global i32 51523fir.global internal @i_i515 (515:i32) : i3224 25// CHECK: @C_i511 = common global i32 026fir.global common @C_i511 (0:i32) : i3227 28// CHECK: @w_i86 = weak global i32 8629fir.global weak @w_i86 (86:i32) : i3230 31// CHECK: @str1 = global [6 x i8] c"Hello!"32fir.global @str1 : !fir.char<1,6> {33 %1 = fir.string_lit "Hello!"(6) : !fir.char<1,6>34 fir.has_value %1 : !fir.char<1,6>35}36 37// CHECK: @_QEmask = internal global [32 x i32] [i32 1, i32 138fir.global internal @_QEmask : !fir.array<32xi32> {39 %c0_i32 = arith.constant 1 : i3240 %0 = fir.undefined !fir.array<32xi32>41 %2 = fir.insert_on_range %0, %c0_i32 from (0) to (31) : (!fir.array<32xi32>, i32) -> !fir.array<32xi32>42 fir.has_value %2 : !fir.array<32xi32>43}44 45// CHECK: @_QEmultiarray = internal global [32 x [32 x i32]]46fir.global internal @_QEmultiarray : !fir.array<32x32xi32> {47 %c0_i32 = arith.constant 1 : i3248 %0 = fir.undefined !fir.array<32x32xi32>49 %2 = fir.insert_on_range %0, %c0_i32 from (0,0) to (31,31) : (!fir.array<32x32xi32>, i32) -> !fir.array<32x32xi32>50 fir.has_value %2 : !fir.array<32x32xi32>51}52 53// CHECK: @_QEmasklogical = internal global [32768 x i32] [i32 -1, i32 -1,54fir.global internal @_QEmasklogical : !fir.array<32768x!fir.logical<4>> {55 %true = arith.constant true56 %0 = fir.undefined !fir.array<32768x!fir.logical<4>>57 %1 = fir.convert %true : (i1) -> !fir.logical<4>58 %2 = fir.insert_on_range %0, %1 from (0) to (32767) : (!fir.array<32768x!fir.logical<4>>, !fir.logical<4>) -> !fir.array<32768x!fir.logical<4>>59 fir.has_value %2 : !fir.array<32768x!fir.logical<4>>60}61