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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_alloc_expr_2.f90] - Blame information for rev 707

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`
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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_alloc_expr_2.f90] - Blame information for rev 707