mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
20 lines
570 B
Fortran
20 lines
570 B
Fortran
! { dg-do compile }
|
|
! This tests the fix for PR29343, in which the valid ALLOCATE statement
|
|
! below triggered an error following the patch for PR20779 and PR20891.
|
|
!
|
|
! Contributed by Grigory Zagorodnev <grigory_zagorodnev@linux.intel.com>
|
|
!
|
|
Subroutine ReadParameters (Album)
|
|
Implicit NONE
|
|
|
|
|
|
Type GalleryP
|
|
Integer :: NoOfEntries
|
|
Character(80), Pointer :: FileName (:)
|
|
End Type GalleryP
|
|
|
|
|
|
Type(GalleryP), Intent(Out) :: Album
|
|
Allocate (Album%FileName (Album%NoOfEntries))
|
|
end
|