Subversion Repositories openrisc

! { 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 

!

        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