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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 40822: [4.5 Regression] Internal compiler error when Fortran intrinsic LEN referenced before explicit declaration
!
! Contributed by Mat Cross 
 
SUBROUTINE SEARCH(ITEMVAL)
  CHARACTER (*) :: ITEMVAL
  CHARACTER (LEN(ITEMVAL)) :: ITEM
  INTRINSIC LEN
END
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 40822: [4.5 Regression] Internal compiler error when Fortran intrinsic LEN referenced before explicit declaration`
4			`!`
5			`! Contributed by Mat Cross`
6
7			`SUBROUTINE SEARCH(ITEMVAL)`
8			`CHARACTER (*) :: ITEMVAL`
9			`CHARACTER (LEN(ITEMVAL)) :: ITEM`
10			`INTRINSIC LEN`
11			`END`
12

Browse

Tools

Subversion Repositories openrisc

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