URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_alloc_expr_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! This tests the fix for PR29343, in which the valid ALLOCATE statement`	`! This tests the fix for PR29343, in which the valid ALLOCATE statement`
`! below triggered an error following the patch for PR20779 and PR20891.`	`! below triggered an error following the patch for PR20779 and PR20891.`
`!`	`!`
`! Contributed by Grigory Zagorodnev`	`! Contributed by Grigory Zagorodnev`
`!`	`!`
`Subroutine ReadParameters (Album)`	`Subroutine ReadParameters (Album)`
`Implicit NONE`	`Implicit NONE`


`Type GalleryP`	`Type GalleryP`
`Integer :: NoOfEntries`	`Integer :: NoOfEntries`
`Character(80), Pointer :: FileName (:)`	`Character(80), Pointer :: FileName (:)`
`End Type GalleryP`	`End Type GalleryP`


`Type(GalleryP), Intent(Out) :: Album`	`Type(GalleryP), Intent(Out) :: Album`
`Allocate (Album%FileName (Album%NoOfEntries))`	`Allocate (Album%FileName (Album%NoOfEntries))`
`end`	`end`