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" } }