gcc/testsuite/gfortran.dg/continuation_10.f90

   1 ! { dg-do compile }
   2 ! { dg-options -std=f95 }
   3 ! PR35882 Miscounted continuation lines when interspersed with data
   4 program test_mod
   5    implicit none
   6
   7    integer, dimension(50) :: array
   8
   9    array = 1
  10
  11    print "(a, i8)", &
  12       "Line 1", &
  13       array(2), &
  14       "Line 3", &
  15       array(4), &
  16       "Line 5", &
  17       array(6), &
  18       "Line 7", &
  19       array(8), &
  20       "Line 9", &
  21       array(10), &
  22       "Line 11", &
  23       array(12), &
  24       "Line 13", &
  25       array(14), &
  26       "Line 15", &
  27       array(16), &
  28       "Line 17", &
  29       array(18), &
  30       "Line 19", &
  31       array(20), &
  32       "Line 21", &
  33       array(22), &
  34       "Line 23", &
  35       array(24), &
  36       "Line 25", &
  37       array(26), &
  38       "Line 27", &
  39       array(28), &
  40       "Line 29", &
  41       array(30), &
  42       "Line 31", &
  43       array(32), &
  44       "Line 33", &
  45       array(34), &
  46       "Line 35", &
  47       array(36), &
  48       "Line 37", &
  49       array(38), &
  50       "Line 39", &
  51       array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
  52       "Line 41", &
  53       array(42), &
  54       "Line 43"
  55 end program