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