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.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [abstract_type_1.f90] - Blame information for rev 686

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


! { dg-do "compile" }
! { dg-options "-std=f95" }
 
! Abstract Types.
! Check that ABSTRACT is rejected for F95.
 
MODULE m
 
  TYPE, ABSTRACT :: t ! { dg-error "Fortran 2003" }
    INTEGER :: x
  END TYPE t ! { dg-error "END MODULE" }
 
END MODULE m
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do "compile" }`
2			`! { dg-options "-std=f95" }`
3
4			`! Abstract Types.`
5			`! Check that ABSTRACT is rejected for F95.`
6
7			`MODULE m`
8
9			`TYPE, ABSTRACT :: t ! { dg-error "Fortran 2003" }`
10			`INTEGER :: x`
11			`END TYPE t ! { dg-error "END MODULE" }`
12
13			`END MODULE m`
14			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [abstract_type_1.f90] - Blame information for rev 686