12 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s --check-prefixes=ALL,COARRAY2! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s --check-prefixes=ALL,NOCOARRAY3 4program test_init5 6end7 8! ALL-LABEL: func.func @main9! ALL: fir.call @_FortranAProgramStart10! COARRAY: mif.init -> i3211! NOCOARRAY-NOT: mif.init12