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