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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Test of the patch for PR29941, in which LEN threw an error with
! an assumed size argument.
!
! Contributed by William Mitchell 
!
subroutine whatever(str)
character(len=*), dimension(*) :: str
integer :: i
i = len(str)
end subroutine whatever

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test of the patch for PR29941, in which LEN threw an error with`
3			`! an assumed size argument.`
4			`!`
5			`! Contributed by William Mitchell`
6			`!`
7			`subroutine whatever(str)`
8			`character(len=), dimension() :: str`
9			`integer :: i`
10			`i = len(str)`
11			`end subroutine whatever`

Browse

Tools

Subversion Repositories openrisc

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