From 2fbd4117c6872453531aa88123f0ea8efdf1b4df Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Mon, 31 Aug 2009 12:22:32 +0200 Subject: re PR fortran/40996 ([F03] ALLOCATABLE scalars) 2009-08-31 Janus Weil PR fortran/40996 * check.c (gfc_check_allocated): Implement allocatable scalars. * resolve.c (resolve_allocate_expr,resolve_fl_var_and_proc): Ditto. * trans-intrinsic.c (gfc_conv_allocated): Ditto. 2009-08-31 Janus Weil PR fortran/40996 * gfortran.dg/allocatable_scalar_1.f90: New. * gfortran.dg/allocatable_scalar_2.f90: Renamed from finalize_9.f03. * gfortran.dg/finalize_9.f03: Renamed to allocatable_scalar_2.f90. * gfortran.dg/proc_ptr_comp_pass_4.f90: Modified. From-SVN: r151240 --- gcc/fortran/check.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'gcc/fortran/check.c') diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 6e2ce41..01775ab 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -546,9 +546,6 @@ gfc_check_allocated (gfc_expr *array) return FAILURE; } - if (array_check (array, 0) == FAILURE) - return FAILURE; - return SUCCESS; } -- cgit v1.1