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> 5print *, & 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" 45print *, & 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 91end