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