1! { dg-do compile } 2! { dg-options -std=f95 } 3! PR35882 Miscounted continuation lines when interspersed with data 4program 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" 55end program 56