gcc/testsuite/gfortran.dg/continuation_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall -std=f95" }
   3 ! There should only two warnings be printed.
   4 ! PR fortran/30968
   5 print *, "Foo bar&
   6         &Bar foo"
   7 print *, "Foo bar&
   8         Bar foo" ! { dg-warning "Missing '&' in continued character constant" }
   9 print *, "Foo bar"&
  10         &, "Bar foo"
  11 print *, "Foo bar"&
  12         , "Bar foo"
  13
  14 print '(&
  15     a)', 'Hello' ! { dg-warning "Missing '&' in continued character constant" }
  16 print '(&
  17    &a)', 'Hello'
  18 print '('&
  19    &//'a)', 'Hello'
  20 print '('&
  21    // "a)", 'Hello'
  22 end