diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-05-13 00:42:45 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-05-13 00:42:45 +0200 |
| commit | 2be517627af141485812051da28eb6bf510f87b4 (patch) | |
| tree | 4dcf401487c82926ae1e272965c0e247c96f8b37 /gcc/fortran | |
| parent | cdeed45ae6332ad98f220653878c11e6208a267f (diff) | |
| download | gcc-2be517627af141485812051da28eb6bf510f87b4.zip gcc-2be517627af141485812051da28eb6bf510f87b4.tar.gz gcc-2be517627af141485812051da28eb6bf510f87b4.tar.bz2 | |
re PR fortran/40110 (Bind(C): gfortran rejects the questionable but formally correct INTEGER(C_CHAR))
2009-05-12 Tobias Burnus <burnus@net-b.de>
PR fortran/40110
* decl.c (gfc_match_kind_spec): Turn C kind error into a
* warning.
2009-05-12 Tobias Burnus <burnus@net-b.de>
PR fortran/40110
* gfortran.dg/bind_c_usage_18.f90: Change dg-error into
dg-warning.
* gfortran.dg/c_kind_tests_2.f03: Ditto.
* gfortran.dg/interop_params.f03: Ditto.
From-SVN: r147452
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7544345..2994acf 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2009-05-12 Tobias Burnus <burnus@net-b.de> + + PR fortran/40110 + * decl.c (gfc_match_kind_spec): Turn C kind error into a warning. + 2009-05-11 Steve Ellcey <sje@cup.hp.com> * resolve.c (check_host_association): Initialize tail. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f3ff0e6..7aa550e 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2000,9 +2000,9 @@ kind_expr: if (ts->f90_type != BT_UNKNOWN && ts->f90_type != ts->type && !((ts->f90_type == BT_REAL && ts->type == BT_COMPLEX) || (ts->f90_type == BT_COMPLEX && ts->type == BT_REAL))) - gfc_error_now ("C kind type parameter is for type %s but type at %L " - "is %s", gfc_basic_typename (ts->f90_type), &where, - gfc_basic_typename (ts->type)); + gfc_warning_now ("C kind type parameter is for type %s but type at %L " + "is %s", gfc_basic_typename (ts->f90_type), &where, + gfc_basic_typename (ts->type)); gfc_gobble_whitespace (); if ((c = gfc_next_ascii_char ()) != ')' |