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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_13.f90] - Blame information for rev 319

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


! { dg-do compile }
! { dg-options "-std=f95" }
!
! PR fortran/27997
!
! Array constructor with typespec
! should be rejected for Fortran 95.
!
real :: a(3)
integer :: j(3)
a = (/ integer :: 1.4, 2.2, 3.33  /) ! { dg-error "Fortran 2003" }
j = (/ 1.4, 2.2, 3.33  /)
if( any(a /= j )) call abort()
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f95" }`
3			`!`
4			`! PR fortran/27997`
5			`!`
6			`! Array constructor with typespec`
7			`! should be rejected for Fortran 95.`
8			`!`
9			`real :: a(3)`
10			`integer :: j(3)`
11			`a = (/ integer :: 1.4, 2.2, 3.33 /) ! { dg-error "Fortran 2003" }`
12			`j = (/ 1.4, 2.2, 3.33 /)`
13			`if( any(a /= j )) call abort()`
14			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_13.f90] - Blame information for rev 319