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_17.f03] - Blame information for rev 319

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


! { dg-do compile }
! { dg-options "-fno-range-check -Wconversion" }
! 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-warning "Conversion from" }
END PROGRAM test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fno-range-check -Wconversion" }`
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-warning "Conversion from" }`
12			`END PROGRAM test`

Browse

Tools

Subversion Repositories openrisc_me

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