gcc/testsuite/gfortran.dg/char_length_10.f90

   1 ! { dg-do compile }
   2 ! Checks the fix for PR33241, in which the assumed character
   3 ! length of the parameter was never filled in with that of
   4 ! the initializer.
   5 !
   6 ! Contributed by Victor Prosolin <victor.prosolin@gmail.com>
   7 !
   8 PROGRAM fptest\r
   9   IMPLICIT NONE\r
  10   CHARACTER (LEN=*), DIMENSION(1),  PARAMETER :: var  = 'a'\r
  11   CALL parsef (var)\r
  12 contains\r
  13   SUBROUTINE parsef (Var)\r
  14     IMPLICIT NONE\r
  15     CHARACTER (LEN=*), DIMENSION(:), INTENT(in) :: Var\r
  16   END SUBROUTINE parsef\r
  17 END PROGRAM fptest\r