OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes] 

2013-07-17  Mikael Morin  <mikael@gcc.gnu.org>
            Tobias Burnus  <burnus@net-b.de>

        PR fortran/57895
        * match.c (gfc_match_name): Ensure that the error
        message regarding -fdollar-ok gets printed.
        (gfc_match_common): Avoid multiple freeing.

2013-07-17  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57895
        * gfortran.dg/dollar_sym_3.f: New.
        * gfortran.dg/dollar_sym_1.f90: Update dg-error.

From-SVN: r201008
This commit is contained in:
Tobias Burnus 2013-07-17 14:57:41 +02:00
parent a1259a1302
commit bdb4f6ce2f
5 changed files with 31 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/fortran/ChangeLog
View File

@ -1,3 +1,11 @@
2013-07-17 Mikael Morin <mikael@gcc.gnu.org>
Tobias Burnus <burnus@net-b.de>
PR fortran/57895
* match.c (gfc_match_name): Ensure that the error
message regarding -fdollar-ok gets printed.
(gfc_match_common): Avoid multiple freeing.
2013-07-16 Tobias Burnus <burnus@net-b.de>
PR fortran/57912
@ -149,7 +157,7 @@
PR fortran/37336
* trans-decl.c (init_intent_out_dt): Call finalizer
when approriate.
when appropriate.
2013-06-08 Tobias Burnus <burnus@net-b.de>
@ -650,7 +658,7 @@
2013-04-08 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/56782
* frontend-passes.c (callback_reduction): Dont't do
* frontend-passes.c (callback_reduction): Don't do
any simplification if there is only a single element
which has an iterator.

8
gcc/fortran/match.c
View File

@ -556,8 +556,8 @@ gfc_match_name (char *buffer)
if (c == '$' && !gfc_option.flag_dollar_ok)
{
gfc_error ("Invalid character '$' at %C. Use -fdollar-ok to allow it "
"as an extension");
gfc_fatal_error ("Invalid character '$' at %L. Use -fdollar-ok to allow "
"it as an extension", &old_loc);
return MATCH_ERROR;
}
@ -4520,10 +4520,6 @@ syntax:
gfc_syntax_error (ST_COMMON);
cleanup:
if (old_blank_common)
old_blank_common->common_next = NULL;
else
gfc_current_ns->blank_common.head = NULL;
gfc_free_array_spec (as);
return MATCH_ERROR;
}

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2013-07-17 Tobias Burnus <burnus@net-b.de>
PR fortran/57895
* gfortran.dg/dollar_sym_3.f: New.
* gfortran.dg/dollar_sym_1.f90: Update dg-error.
2013-07-16 Iain Sandoe <iain@codesourcery.com>
PR target/55654

6
gcc/testsuite/gfortran.dg/dollar_sym_1.f90
View File

@ -3,7 +3,7 @@
! Variable names containing $ signs
!
REAL*4 PLT$C_HOUSTPIX ! { dg-error "Invalid character '\\$'" }
INTEGER PLT$C_COMMAND ! { dg-error "Invalid character '\\$'" }
PARAMETER (PLT$B_OPC=0) ! { dg-error "Invalid character '\\$'" }
common /abc$def/ PLT$C_HOUSTPIX, PLT$C_COMMAND ! { dg-error "Invalid character '\\$'" }
INTEGER PLT$C_COMMAND ! Unreachable as the error above is now fatal
PARAMETER (PLT$B_OPC=0) ! Unreachable as the error above is now fatal
common /abc$def/ PLT$C_HOUSTPIX, PLT$C_COMMAND ! Unreachable as the error above is now fatal
end

10
gcc/testsuite/gfortran.dg/dollar_sym_3.f Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
!
! PR fortran/57895
!
! Contributed by Vittorio Zecca
!
c Segmentation fault in gfc_restore_last_undo_checkpoint
COMMON RADE3155V62$JUTMU9L9E(3,3,3), LADE314JUTMP9 ! { dg-error "Invalid character '\\$' at .1.. Use -fdollar-ok to allow it as an extension" }
+LHEDDJNTMP9L(3,3,3)
end