gcc/testsuite/gfortran.dg/continuation_3.f90

   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        "1" // & !  1
   7        "2" // & !  2
   8        "3" // & !  3
   9        "4" // & !  4
  10        "5" // & !  5
  11        "6" // & !  6
  12        "7" // & !  7
  13        "8" // & !  8
  14        "9" // & !  9
  15        "0" // & ! 10
  16        "1" // & ! 11
  17        "2" // & ! 12
  18        "3" // & ! 13
  19        "4" // & ! 14
  20        "5" // & ! 15
  21        "6" // & ! 16
  22        "7" // & ! 17
  23        "8" // & ! 18
  24        "9" // & ! 19
  25        "0" // & ! 20
  26        "1" // & ! 21
  27        "2" // & ! 22
  28        "3" // & ! 23
  29        "4" // & ! 24
  30        "5" // & ! 25
  31        "6" // & ! 26
  32        "7" // & ! 27
  33        "8" // & ! 28
  34        "9" // & ! 29
  35        "0" // & ! 30
  36        "1" // & ! 31
  37        "2" // & ! 32
  38        "3" // & ! 33
  39        "4" // & ! 34
  40        "5" // & ! 35
  41        "6" // & ! 36
  42        "7" // & ! 37
  43        "8" // & ! 38
  44        "9"
  45 print *, &
  46        "1" // & !  1
  47        "2" // & !  2
  48        "3" // & !  3
  49        "4" // & !  4
  50        "5" // & !  5
  51        "6" // & !  6
  52        "7" // & !  7
  53        "8" // & !  8
  54        "9" // & !  9
  55        "0" // & ! 10
  56        "1" // & ! 11
  57        "2" // & ! 12
  58        "3" // & ! 13
  59        "4" // & ! 14
  60        "5" // & ! 15
  61        "6" // & ! 16
  62        "7" // & ! 17
  63        "8" // & ! 18
  64        "9" // & ! 19
  65        "0" // & ! 20
  66        "1" // & ! 21
  67        "2" // & ! 22
  68        "3" // & ! 23
  69        "4" // & ! 24
  70        "5" // & ! 25
  71        "6" // & ! 26
  72        "7" // & ! 27
  73        "8" // & ! 28
  74        "9" // & ! 29
  75 !
  76    !
  77        "0" // & ! 30
  78        "1" // & ! 31
  79 !
  80 !
  81        "2" // & ! 32
  82        "3" // & ! 33
  83        "4" // & ! 34
  84        "5" // & ! 35
  85        "6" // & ! 36
  86        "7" // & ! 37
  87        "8" // & ! 38
  88        "9" // & ! 39
  89        "0"      ! { dg-warning "Limit of 39 continuations exceeded" }
  90
  91 end