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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [f77-edit-s-out.f] - Blame information for rev 694

Line No.	Rev	Author	Line
1	694	jeremybenn	`C Test Fortran 77 S, SS and SP edit descriptors`
2			`C (ANSI X3.9-1978 Section 13.5.6)`
3			`C`
4			`C Origin: David Billinghurst <David.Billinghurst@riotinto.com>`
5			`C`
6			`C { dg-do run }`
7			`C ( dg-output "^" }`
8			`10 format(SP,I3,1X,SS,I3)`
9			`20 format(SP,I3,1X,SS,I3,SP,I3)`
10			`30 format(SP,I3,1X,SS,I3,S,I3)`
11			`40 format(SP,I3)`
12			`50 format(SP,I2)`
13			`write(*,10) 10, 20 ! { dg-output "\\+10 20(\n\|\r\n\|\r)" }`
14			`write(*,20) 10, 20, 30 ! { dg-output "\\+10 20\\+30(\n\|\r\n\|\r)" }`
15			`write(*,30) 10, 20, 30 ! { dg-output "\\+10 20 30(\n\|\r\n\|\r)" }`
16			`write(*,40) 0 ! { dg-output " \\+0(\n\|\r\n\|\r)" }`
17			`C 15.5.9 - Note 5: When SP editing is in effect, the plus sign is not optional`
18			`write(,50) 11 ! { dg-output "\\\\*(\n\|\r\n\|\r)" }`
19			`C { dg-output "\$" }`
20			`end`