diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/line_length_3.f | 23 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/line_length_4.f90 | 18 |
3 files changed, 47 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f375908..455d5f0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-09-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/39229 + * gfortran.dg/line_length_3.f: New test. + * gfortran.dg/line_length_4.f90: New test. + 2009-09-01 Loren J. Rittle <ljrittle@acm.org> * lib/target-supports.exp (check_gc_sections_available): diff --git a/gcc/testsuite/gfortran.dg/line_length_3.f b/gcc/testsuite/gfortran.dg/line_length_3.f new file mode 100644 index 0000000..653246a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/line_length_3.f @@ -0,0 +1,23 @@ +! { dg-do compile } +! { dg-options "-std=gnu -ffixed-form -Wline-truncation" } +! PR39229 No warning of truncated lines if a continuation line follows + ! expected: no warning by default (as column 73+ is often used for ) + ! comments in fixed-form source code. + ! however, with -wline-truncation there shall be a warning. + implicit none + call foo([11, 22, 33, 44, 55, 66, 770, 9900, 1100, 1100, 120], 12 warn + & , 'hello') + print *, min(35 + 1 , 25 warn + 2 ) + contains + subroutine foo(a,n,s) + integer :: a(*), n, i + character(len=*) :: s + do i = 1, n + print *, s, a(i) + end do + end subroutine foo + end +! { dg-warning "Line truncated" " " { target *-*-* } 8 } +! { dg-warning "Line truncated" " " { target *-*-* } 11 } diff --git a/gcc/testsuite/gfortran.dg/line_length_4.f90 b/gcc/testsuite/gfortran.dg/line_length_4.f90 new file mode 100644 index 0000000..52bba1c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/line_length_4.f90 @@ -0,0 +1,18 @@ +! { dg-do compile } +! { dg-options "-Wline-truncation -ffree-line-length-80" } +! PR39229 No warning of truncated lines if a continuation line follows + implicit none + call foo([11, 22, 33, 44, 55, 66, 770, 9900, 1100, 1100, 120],11,'hello') !no warn + + print *, min(35 & + & , 25 ), " Explanation ! " warn + contains + subroutine foo(a,n,s) + integer :: a(*), n, i + character(len=*) :: s + do i = 1, n + print *, s, a(i) + end do + end subroutine foo + end +! { dg-warning "Line truncated" " " { target *-*-* } 8 } |