37 lines · plain
1! RUN: bbc -emit-hlfir %s -o - | FileCheck %s2 3pure subroutine sub1()4end5 6! CHECK: func.func @_QPsub1() attributes {fir.proc_attrs = #fir.proc_attrs<pure>}7 8elemental subroutine sub2()9end10 11! CHECK: func.func @_QPsub2() attributes {fir.proc_attrs = #fir.proc_attrs<elemental, pure>}12 13non_recursive subroutine sub3()14end15 16! CHECK: func.func @_QPsub3() attributes {fir.proc_attrs = #fir.proc_attrs<non_recursive>}17 18impure elemental subroutine sub4()19end20 21! CHECK: func.func @_QPsub4() attributes {fir.proc_attrs = #fir.proc_attrs<elemental>}22 23pure function fct1()24end25 26! CHECK: func.func @_QPfct1() -> f32 attributes {fir.proc_attrs = #fir.proc_attrs<pure>}27 28elemental function fct2()29end30 31! CHECK: func.func @_QPfct2() -> f32 attributes {fir.proc_attrs = #fir.proc_attrs<elemental, pure>}32 33non_recursive function fct3()34end35 36! CHECK: func.func @_QPfct3() -> f32 attributes {fir.proc_attrs = #fir.proc_attrs<non_recursive>}37