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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 694 jeremybenn
C Test Fortran 77 apostrophe edit descriptor 
2
C      (ANSI X3.9-1978 Section 13.5.1)
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('abcde')
9
 20   format('and an apostrophe -''-')
10
 30   format('''a leading apostrophe')
11
 40   format('a trailing apostrophe''')
12
 50   format('''and all of the above -''-''')
13
 
14
      write(*,10)        ! { dg-output "abcde(\n|\r\n|\r)" } 
15
      write(*,20)        ! { dg-output "and an apostrophe -'-(\n|\r\n|\r)" }
16
      write(*,30)        ! { dg-output "'a leading apostrophe(\n|\r\n|\r)" }
17
      write(*,40)        ! { dg-output "a trailing apostrophe'(\n|\r\n|\r)" }
18
      write(*,50)        ! { dg-output "'and all of the above -'-'(\n|\r\n|\r)" }
19
 
20
C { dg-output "\$" }
21
      end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.