1! { dg-do compile } 2! 3! PR fortran/34784, in which the intrinsic expression would be 4! given the implicit type. 5! 6! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com> 7! 8MODULE m 9 implicit character(s) 10 INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J),J=1,1) /) 11END MODULE m 12 13MODULE s_TESTS 14 IMPLICIT CHARACTER (P) 15CONTAINS 16 subroutine simple (u,j1) 17 optional :: j1 18 if (present (j1)) stop 19 end subroutine 20END MODULE s_TESTS 21