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!
36c
37*
38C
39     c "0" // ! 10
40     c "1" // ! 11
41     c "2" // ! 12
42     c "3" // ! 13
43     c "4" // ! 14
44c
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