From 98cf47d1a57c7c8f0541aa61488863f4864b0e40 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Fri, 8 Jun 2012 19:26:11 +0200 Subject: re PR fortran/52552 ([OOP] ICE when trying to allocate non-allocatable object giving a dynamic type) 2012-06-08 Janus Weil 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 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 --- gcc/fortran/resolve.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/resolve.c') 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", -- cgit v1.1