From 239b48db1b238cf5395570604ca4400e74025ab4 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 23 May 2012 22:35:30 +0200 Subject: re PR fortran/51055 (deferred length character allocation: allocate(character(len=i)::s) rejected) 2012-05-23 Tobias Burnus PR fortran/51055 PR fortran/45170 * match.c (gfc_match_allocate): Set length_from_typespec for characters. * resolve.c (resolve_charlen): If set, don't check whether the len is a specification expression. 2012-05-23 Tobias Burnus PR fortran/51055 PR fortran/45170 * gfortran.dg/allocate_with_typespec_6.f90: New. From-SVN: r187811 --- gcc/fortran/match.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/fortran/match.c') diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 3d11918..93d7fab 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -3466,6 +3466,9 @@ gfc_match_allocate (void) "type parameter", &old_locus); goto cleanup; } + + if (ts.type == BT_CHARACTER) + ts.u.cl->length_from_typespec = true; } else { -- cgit v1.1