old-autovect-branch/gcc/testsuite/gfortran.dg/g77/f77-edit-apostrophe-out.f

   1 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