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/] [array_constructor_type_18.f03] - Blame information for rev 516

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-frange-check" }
! PR fortran/27997
!
! Range check on array-constructors with typespec.
 
PROGRAM test
  IMPLICIT NONE
 
  INTEGER(KIND=4) :: arr(1)
  arr = (/ INTEGER(KIND=4) :: HUGE(0_8) /) ! { dg-error "overflow converting" }
END PROGRAM test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-frange-check" }`
3			`! PR fortran/27997`
4			`!`
5			`! Range check on array-constructors with typespec.`
6
7			`PROGRAM test`
8			`IMPLICIT NONE`
9
10			`INTEGER(KIND=4) :: arr(1)`
11			`arr = (/ INTEGER(KIND=4) :: HUGE(0_8) /) ! { dg-error "overflow converting" }`
12			`END PROGRAM test`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_18.f03] - Blame information for rev 516