! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s ! CHECK-LABEL: present_test ! CHECK-SAME: %[[arg0:[^:]+]]: !fir.box> subroutine present_test(a) integer, optional :: a(:) if (present(a)) print *,a ! CHECK: %{{.*}} = fir.is_present %[[arg0]] : (!fir.box>) -> i1 end subroutine