1! { dg-do compile } 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. 4! 5! Contributed by Grigory Zagorodnev <grigory_zagorodnev@linux.intel.com> 6! 7 Subroutine ReadParameters (Album) 8 Implicit NONE 9 10 11 Type GalleryP 12 Integer :: NoOfEntries 13 Character(80), Pointer :: FileName (:) 14 End Type GalleryP 15 16 17 Type(GalleryP), Intent(Out) :: Album 18 Allocate (Album%FileName (Album%NoOfEntries)) 19 end 20