Searched refs:is_psnt (Results 1 - 1 of 1) sorted by relevance

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Doptional_absent_1.f9043 subroutine ptr_func(is_psnt, a)
45 logical :: is_psnt local in subroutine:ptr_func
46 if (is_psnt .neqv. present(a)) call abort()

Completed in 40 milliseconds