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/] [continuation_11.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-Wall -pedantic" }
! Before a bogus warning was printed
!
! PR fortran/39811
!
implicit none
character(len=70) :: str
write(str,'(a)') 'Print rather a lot of ampersands &&&&&
   &&&&&
   &&&&&'
if (len(trim(str)) /= 44 &
    .or. str /= 'Print rather a lot of ampersands &&&&&&&&&&&') &
    call abort()
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-Wall -pedantic" }`
3			`! Before a bogus warning was printed`
4			`!`
5			`! PR fortran/39811`
6			`!`
7			`implicit none`
8			`character(len=70) :: str`
9			`write(str,'(a)') 'Print rather a lot of ampersands &&&&&`
10			`&&&&&`
11			`&&&&&'`
12			`if (len(trim(str)) /= 44 &`
13			`.or. str /= 'Print rather a lot of ampersands &&&&&&&&&&&') &`
14			`call abort()`
15			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [continuation_11.f90] - Blame information for rev 302