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/] [pr29067.f] - Blame information for rev 399

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/29067`
3			`implicit none`
4			`integer :: n, i`
5			`character(len=16),parameter :: s = "", s2 = "1234567890123456"`
6
7			`i = 0 ; n = 9`
8			`print *, s(9:16)`
9			`print *, s2(9:16)`
10			`if (s(9:16) == "90123456") then`
11			`endif`
12			`if (i > 0) then`
13			`write (i,*) n`
14			`call foo(0)`
15			`endif`
16			`do i = 1, n`
17			`end do`
18			`end`