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