2 ! Checks the fix for PR33241, in which the assumed character
3 ! length of the parameter was never filled in with that of
6 ! Contributed by Victor Prosolin <victor.prosolin@gmail.com>
10 CHARACTER (LEN=*), DIMENSION(1), PARAMETER :: var = 'a'
\r
13 SUBROUTINE parsef (Var)
\r
15 CHARACTER (LEN=*), DIMENSION(:), INTENT(in) :: Var
\r
16 END SUBROUTINE parsef
\r