! { dg-do compile }
! { dg-options -std=f2018 }
!
! copied from continuation_4.f90 - but use -std=f2018
! Fortran 2018: Continuation-line limit is 255  <<< TESTED
! Fortran 2023: Maximally 1,000,000 characters per statement (implied but no explicit continuation-line line limit)
!
! PR 19262  Test limit on line continuations. Test case derived form case in PR
! by Steve Kargl.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
print *, &
       "1" // & !  1  Counting in groups of 40.
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 40
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 80
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 120
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 160
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 200
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 15
       "6" // & ! 16
       "7" // & ! 17
       "8" // & ! 18
       "9" // & ! 19
       "0" // & ! 20
       "1" // & ! 21
       "2" // & ! 22
       "3" // & ! 23
       "4" // & ! 24
       "5" // & ! 25
       "6" // & ! 26
       "7" // & ! 27
       "8" // & ! 28
       "9" // & ! 29
       "0" // & ! 30
       "1" // & ! 31
       "2" // & ! 32
       "3" // & ! 33
       "4" // & ! 34
       "5" // & ! 35
       "6" // & ! 36
       "7" // & ! 37
       "8" // & ! 38
       "9" // & ! 39
       "0" // & ! 240
       "1" // & !  1
       "2" // & !  2
       "3" // & !  3
       "4" // & !  4
       "5" // & !  5
       "6" // & !  6
       "7" // & !  7
       "8" // & !  8
       "9" // & !  9
       "0" // & ! 10
       "1" // & ! 11
       "2" // & ! 12
       "3" // & ! 13
       "4" // & ! 14
       "5" // & ! 255
       "0"      ! { dg-warning "Limit of 255 continuations exceeded" }
end