11 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s2 3! CHECK-LABEL: present_test4! CHECK-SAME: %[[arg0:[^:]+]]: !fir.box<!fir.array<?xi32>>5subroutine present_test(a)6 integer, optional :: a(:)7 8 if (present(a)) print *,a9 ! CHECK: %{{.*}} = fir.is_present %[[arg0]] : (!fir.box<!fir.array<?xi32>>) -> i110end subroutine11