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

Subversion Repositories openrisc

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

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


! Test runtime warnings using non-standard $ editing - PR20006.
!
! Contributor Francois-Xavier Coudert  
!
! { dg-options "-pedantic" }
! { dg-do run }
!
     character(5) c
     open (42,status='scratch')
     write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
     write (42,'(A)') 'de'
     rewind (42)
     read (42,'(A)') c
     close (42)
     if (c /= 'abcde') call abort ()
     end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! Test runtime warnings using non-standard $ editing - PR20006.`
2			`!`
3			`! Contributor Francois-Xavier Coudert`
4			`!`
5			`! { dg-options "-pedantic" }`
6			`! { dg-do run }`
7			`!`
8			`character(5) c`
9			`open (42,status='scratch')`
10			`write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }`
11			`write (42,'(A)') 'de'`
12			`rewind (42)`
13			`read (42,'(A)') c`
14			`close (42)`
15			`if (c /= 'abcde') call abort ()`
16			`end`
17

Browse

Tools

Subversion Repositories openrisc

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