gcc/testsuite/gfortran.dg/continuation_5.f

   1 ! { dg-do compile }
   2 ! { dg-options -std=f95 }
   3 ! PR 19262  Test limit on line continuations. Test case derived form case in PR
   4 ! by Steve Kargl.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5        print *,
   6      c "1" // !  1
   7      c "2" // !  2
   8      c "3" // !  3
   9      c "4" // !  4
  10      c "5" // !  5
  11      c "6" // !  6
  12      c "7" // !  7
  13      c "8" // !  8
  14      c "9" // !  9
  15      c "0" // ! 10
  16      c "1" // ! 11
  17      c "2" // ! 12
  18      c "3" // ! 13
  19      c "4" // ! 14
  20      c "5" // ! 15
  21      c "6" // ! 16
  22      c "7" // ! 17
  23      c "8" // ! 18
  24      c "9"    ! 19
  25        print *,
  26      c "1" // !  1
  27      c "2" // !  2
  28      c "3" // !  3
  29      c "4" // !  4
  30      c "5" // !  5
  31      c "6" // !  6
  32      c "7" // !  7
  33      c "8" // !  8
  34      c "9" // !  9
  35 !
  36 c
  37 *
  38 C
  39      c "0" // ! 10
  40      c "1" // ! 11
  41      c "2" // ! 12
  42      c "3" // ! 13
  43      c "4" // ! 14
  44 c
  45
  46  !
  47                           !
  48      c "5" // ! 15
  49      c "6" // ! 16
  50      c "7" // ! 17
  51      c "8" // ! 18
  52      c "9" // ! 19
  53      c "0"    ! { dg-warning "Limit of 19 continuations exceeded" }
  54        end