diff options
| author | Mark Eggleston <markeggleston@gcc.gnu.org> | 2020-07-06 07:14:59 +0100 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:17:35 -0300 |
| commit | 9be92ac815aa504d000008b4e2d43c613ad41486 (patch) | |
| tree | c24717c0ebcb03cfdb0ed307e2769df1d2454c3b | |
| parent | f97cf0be00ce9811ac4f558756e6b1019180c42e (diff) | |
| download | gcc-9be92ac815aa504d000008b4e2d43c613ad41486.zip gcc-9be92ac815aa504d000008b4e2d43c613ad41486.tar.gz gcc-9be92ac815aa504d000008b4e2d43c613ad41486.tar.bz2 | |
Fortran : Implicitly type parameter causes an invalid error PR96038
If a paramter to declared and initialised before its type is
declared a bogus error is output at the type declaration
idicating that initialisation is missing.
2020-07-14 Steven G. Kargl <kargl@gcc.gnu.org>
gcc/fortran/
PR fortran/96038
* decl.c (add_init_expr_sym): For a symbol that is a
parameter accept an initialisation if it does not have a
value otherwise output a error and reject.
2020-07-14 Mark Eggleston <markeggleston@gcc.gnu.org>
gcc/testsuite/
PR fortran/96038
* gfortran.dg/pr96038.f90: New test.
| -rw-r--r-- | gcc/fortran/decl.c | 15 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr96038.f90 | 8 |
2 files changed, 17 insertions, 6 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 52c2a62..d854b2a 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1889,13 +1889,16 @@ add_init_expr_to_sym (const char *name, gfc_expr **initp, locus *var_locus) /* If this symbol is confirming an implicit parameter type, then an initialization expression is not allowed. */ - if (attr.flavor == FL_PARAMETER - && sym->value != NULL - && *initp != NULL) + if (attr.flavor == FL_PARAMETER && sym->value != NULL) { - gfc_error ("Initializer not allowed for PARAMETER %qs at %C", - sym->name); - return false; + if (*initp != NULL) + { + gfc_error ("Initializer not allowed for PARAMETER %qs at %C", + sym->name); + return false; + } + else + return true; } if (init == NULL) diff --git a/gcc/testsuite/gfortran.dg/pr96038.f90 b/gcc/testsuite/gfortran.dg/pr96038.f90 new file mode 100644 index 0000000..f1098f3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr96038.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } + +function ifoo() + parameter (n = 50) + integer n + ifoo = n +end + |