3 ! PR fortran/34784, in which the intrinsic expression would be
4 ! given the implicit type.
6 ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
10 INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J
),J
=1,1) /)
14 IMPLICIT CHARACTER (P
)
16 subroutine simple (u
,j1
)
18 if (present (j1
)) stop
22 ! { dg-final { cleanup-modules "m s_TESTS" } }