Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/continuation_14.f @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

! { dg-do run }
! { dg-options "-std=gnu" }
! PR64506 fixed form source
      character(25) :: astring

 100  format('This format is OK.'
     &)
 200  format('This format works now.'!comment << FAILS
     &)
 300  format('This format is OK.' !comment
     &)
 400  format('This format is OK.'  !comment
     &)
 500  format('This format is now OK.'''!comment
     &   )
 600  format('This format is OK.''' !comment
     &   )
      write(astring,100)
      if (astring.ne."This format is OK.") call abort
      write(astring,200)
      if (astring.ne."This format works now.") call abort
      write(astring,300)
      if (astring.ne."This format is OK.") call abort
      write(astring,400)
      if (astring.ne."This format is OK.") call abort
      write(astring,500)
      if (astring.ne."This format is now OK.'") call abort
      write(astring,600)
      if (astring.ne."This format is OK.'") call abort
      end