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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_proc_3.f03] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-std=f2003" }
 
! Type-bound procedures
! Test that F2003 does not allow empty CONTAINS sections.
 
MODULE testmod
  IMPLICIT NONE
 
  TYPE t
    INTEGER :: x
  CONTAINS
  END TYPE t ! { dg-error "Fortran 2008" }
 
END MODULE testmod
 
! { dg-final { cleanup-modules "testmod" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f2003" }`
3
4			`! Type-bound procedures`
5			`! Test that F2003 does not allow empty CONTAINS sections.`
6
7			`MODULE testmod`
8			`IMPLICIT NONE`
9
10			`TYPE t`
11			`INTEGER :: x`
12			`CONTAINS`
13			`END TYPE t ! { dg-error "Fortran 2008" }`
14
15			`END MODULE testmod`
16
17			`! { dg-final { cleanup-modules "testmod" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_proc_3.f03] - Blame information for rev 694