diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2012-06-08 19:26:11 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2012-06-08 19:26:11 +0200 |
| commit | 98cf47d1a57c7c8f0541aa61488863f4864b0e40 (patch) | |
| tree | 8d289d12a300ed4e057d71380dc78973a09d46df /gcc/fortran/resolve.c | |
| parent | ef0cd8fe8b4576fe98f4405d99431ed225ef3c17 (diff) | |
| download | gcc-98cf47d1a57c7c8f0541aa61488863f4864b0e40.zip gcc-98cf47d1a57c7c8f0541aa61488863f4864b0e40.tar.gz gcc-98cf47d1a57c7c8f0541aa61488863f4864b0e40.tar.bz2 | |
re PR fortran/52552 ([OOP] ICE when trying to allocate non-allocatable object giving a dynamic type)
2012-06-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/52552
* match.c (gfc_match_allocate): Modify order of checks. Change wording
of error message. Remove FIXME note.
* resolve.c (resolve_allocate_expr): Add a comment.
2012-06-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/52552
* gfortran.dg/allocate_alloc_opt_1.f90: Modified.
* gfortran.dg/allocate_class_1.f90: Modified.
* gfortran.dg/allocate_with_typespec_4.f90: Modified.
* gfortran.dg/allocate_class_2.f90: New.
From-SVN: r188335
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 61a1381..8531318 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6986,6 +6986,7 @@ resolve_allocate_expr (gfc_expr *e, gfc_code *code) } } + /* Check for F08:C628. */ if (allocatable == 0 && pointer == 0) { gfc_error ("Allocate-object at %L must be ALLOCATABLE or a POINTER", |