gcc/testsuite/gfortran.dg/array_constructor_20.f90

   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 !
   8 MODULE m
   9   implicit character(s)
  10   INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J),J=1,1) /)
  11 END MODULE m
  12
  13 MODULE s_TESTS
  14   IMPLICIT CHARACTER (P)
  15 CONTAINS
  16   subroutine simple (u,j1)
  17     optional ::  j1
  18     if (present (j1)) stop
  19   end subroutine
  20 END MODULE s_TESTS
  21
  22 ! { dg-final { cleanup-modules "m s_TESTS" } }