13 lines · plain
1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3 ! CHECK-LABEL: func @_QQmain4 program main5 integer :: ip6 pointer :: ip7 8 allocate(ip)9 assign 10 to ip10 ! CHECK: fir.store %c10_i32 to %11 : !fir.ptr<i32>11 10 return12 end program main13