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! 8PROGRAM fptest 9 IMPLICIT NONE 10 CHARACTER (LEN=*), DIMENSION(1), PARAMETER :: var = 'a' 11 CALL parsef (var) 12contains 13 SUBROUTINE parsef (Var) 14 IMPLICIT NONE 15 CHARACTER (LEN=*), DIMENSION(:), INTENT(in) :: Var 16 END SUBROUTINE parsef 17END PROGRAM fptest 18