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.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [structure_constructor_9.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-std=f95" }
! Check for notify-std-messages when F2003 structure constructors are compiled
! with -std=f95.
PROGRAM test
IMPLICIT NONE
! Basic type with default initializers
TYPE :: basics_t
INTEGER :: i = 42
REAL :: r = 1.5
END TYPE basics_t
TYPE(basics_t) :: basics
! This is ok in F95
basics = basics_t (1, 2.)
! No argument naming in F95
basics = basics_t (1, r = 4.2) ! { dg-error "Fortran 2003" }
! No optional arguments in F95
basics = basics_t () ! { dg-error "Fortran 2003" }
basics = basics_t (5) ! { dg-error "Fortran 2003" }
END PROGRAM test
Go to most recent revision | Compare with Previous | Blame | View Log