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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [finalize_2.f03] - Blame information for rev 513

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


! { dg-do compile }
! { dg-options "-std=f2003" }
 
! Parsing of finalizer procedure definitions.
! Check empty CONTAINS errors out for F2003.
 
MODULE final_type
  IMPLICIT NONE
 
  TYPE :: mytype
    INTEGER, ALLOCATABLE :: fooarr(:)
    REAL :: foobar
  CONTAINS
  END TYPE mytype ! { dg-error "Fortran 2008" }
 
END MODULE final_type
 
PROGRAM finalizer
  IMPLICIT NONE
  ! Do nothing here
END PROGRAM finalizer
 
! { dg-final { cleanup-modules "final_type" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f2003" }`
3
4			`! Parsing of finalizer procedure definitions.`
5			`! Check empty CONTAINS errors out for F2003.`
6
7			`MODULE final_type`
8			`IMPLICIT NONE`
9
10			`TYPE :: mytype`
11			`INTEGER, ALLOCATABLE :: fooarr(:)`
12			`REAL :: foobar`
13			`CONTAINS`
14			`END TYPE mytype ! { dg-error "Fortran 2008" }`
15
16			`END MODULE final_type`
17
18			`PROGRAM finalizer`
19			`IMPLICIT NONE`
20			`! Do nothing here`
21			`END PROGRAM finalizer`
22
23			`! { dg-final { cleanup-modules "final_type" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [finalize_2.f03] - Blame information for rev 513