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