diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-05-16 17:51:41 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-05-16 17:51:41 +0000 |
| commit | f70713026c1c5d0a235e8fdd472c97ae125834fc (patch) | |
| tree | 4a0a8b9a3c013a2d6461461f12ea48ed7c96848b /gcc | |
| parent | c55bbc72ffaabcab433cdcce28ba69d21c35e21c (diff) | |
| download | gcc-f70713026c1c5d0a235e8fdd472c97ae125834fc.zip gcc-f70713026c1c5d0a235e8fdd472c97ae125834fc.tar.gz gcc-f70713026c1c5d0a235e8fdd472c97ae125834fc.tar.bz2 | |
re PR fortran/65903 (Line continuation followed by comment character in string fails to compile)
2015-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/65903
* gfortran.dg/continuation_13.f90: Update test.
* gfortran.dg/pr65903.f90: New test.
From-SVN: r223249
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/continuation_13.f90 | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr65903.f90 | 20 |
3 files changed, 31 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b3aa87c..6732ed6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2015-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/65903 + * gfortran.dg/continuation_13.f90: Update test. + * gfortran.dg/pr65903.f90: New test. + 2015-05-16 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/66113 diff --git a/gcc/testsuite/gfortran.dg/continuation_13.f90 b/gcc/testsuite/gfortran.dg/continuation_13.f90 index 1852812..95ff1f9 100644 --- a/gcc/testsuite/gfortran.dg/continuation_13.f90 +++ b/gcc/testsuite/gfortran.dg/continuation_13.f90 @@ -17,8 +17,11 @@ character(25) :: astring ) 700 format('This format now works.'''& !comment ) +! See PR65903 for the following cases. 800 format('This is actually ok.'& !comment ' end' ) +900 format('This is actually ok.' & !comment + ' end' ) write(astring,100) if (astring.ne."This format is OK.") call abort write(astring,200) @@ -34,6 +37,8 @@ if (astring.ne."This format now works.'") call abort write(astring,700) if (astring.ne."This format now works.'") call abort write(astring,800) +if (astring.ne."This is actually ok.' end") call abort +write(astring,900) if (astring.ne."This is actually ok. end") call abort end diff --git a/gcc/testsuite/gfortran.dg/pr65903.f90 b/gcc/testsuite/gfortran.dg/pr65903.f90 new file mode 100644 index 0000000..20e78ca --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr65903.f90 @@ -0,0 +1,20 @@ +! { dg-do run } +! { dg-options "-std=gnu" } +! +character(20) :: astring + +100 format ("& notblank !") +200 format ("& !") +300 format ("&!") + +write(astring,100) +if (astring.ne."& notblank !") call abort +!print *, astring +write(astring,200) +if (astring.ne."& !") call abort +!print *, astring +write(astring,300) +if (astring.ne."&!") call abort +!print *, astring + +end |