mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-30 10:29:39 +00:00
14 lines
361 B
Fortran
14 lines
361 B
Fortran
|
! { dg-do compile }
|
||
|
! Tests the fix for PR30319, in which the use of the parameter 'aa' in
|
||
|
! the array constructor that initialises bb would cause an internal
|
||
|
! error in resolution.
|
||
|
!
|
||
|
! Contributed by Vivek Rao <vivekrao4@yahoo.com>
|
||
|
!
|
||
|
module foomod
|
||
|
character (len=1), parameter :: aa = "z", bb(1) = (/aa/)
|
||
|
end module foomod
|
||
|
use foomod
|
||
|
print *, aa, bb
|
||
|
end
|