| commit | 9bc3718080d4cf479169e7856fcd4653c99266f7 | |
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 24 Oct 2005 09:11:47 +0000 (24 09:11 +0000) | ||
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 24 Oct 2005 09:11:47 +0000 (24 09:11 +0000) | ||
| tree | cc47e97bc18c85e7f2c637a66aea853e2f83ac6a | treesnapshot (tar.gz zip) |
| parent | af915491916eaf098144dfe0e855a62e94466aa9 | commitdiff |
PR fortran/24493
* scanner.c (skip_free_comments): Set at_bol at the beginning of the
loop, not before it.
(skip_fixed_comments): Handle ! comments in the middle of line here
as well.
(gfc_skip_comments): Use skip_fixed_comments for FIXED_FORM even if
not at BOL.
(gfc_next_char_literal): Fix expected canonicalized *$omp string.
* gfortran.dg/gomp/fixed-1.f: New test.
* gfortran.dg/gomp/free-1.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-20050608-branch@105843 138bc75d-0d04-0410-961f-82ee72b054a4
* scanner.c (skip_free_comments): Set at_bol at the beginning of the
loop, not before it.
(skip_fixed_comments): Handle ! comments in the middle of line here
as well.
(gfc_skip_comments): Use skip_fixed_comments for FIXED_FORM even if
not at BOL.
(gfc_next_char_literal): Fix expected canonicalized *$omp string.
* gfortran.dg/gomp/fixed-1.f: New test.
* gfortran.dg/gomp/free-1.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-20050608-branch@105843 138bc75d-0d04-0410-961f-82ee72b054a4
| gcc/fortran/ChangeLog.gomp | diffblobblamehistory | |
| gcc/fortran/scanner.c | diffblobblamehistory | |
| gcc/testsuite/ChangeLog.gomp | diffblobblamehistory | |
| gcc/testsuite/gfortran.dg/gomp/fixed-1.f | [new file with mode: 0644] | blob |
| gcc/testsuite/gfortran.dg/gomp/free-1.f90 | [new file with mode: 0644] | blob |