2 ! This tests the fix for PR29343, in which the valid ALLOCATE statement
3 ! below triggered an error following the patch for PR20779 and PR20891.
5 ! Contributed by Grigory Zagorodnev <grigory_zagorodnev@linux.intel.com>
7 Subroutine ReadParameters (Album)
12 Integer :: NoOfEntries
13 Character(80), Pointer :: FileName (:)
17 Type(GalleryP), Intent(Out) :: Album
18 Allocate (Album%FileName (Album%NoOfEntries))