From e3f62a5ac17c979b0602899888b3df8a9e0c2101 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Sat, 15 Jun 2013 21:20:29 +0000 Subject: re PR fortran/49074 ([OOP] Defined assignment w/ CLASS arrays: Incomplete error message) fortran/ PR fortran/49074 PR fortran/56136 * dependency.c (gfc_check_argument_var_dependency): Return 0 in the array constructor case. testsuite/ PR fortran/49074 PR fortran/56136 * gfortran.dg/typebound_assignment_5.f03: Check the absence of any packing. * gfortran.dg/typebound_assignment_6.f03: New. From-SVN: r200128 --- gcc/fortran/dependency.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/dependency.c') diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 38921b1..fcdc1e5 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -990,7 +990,9 @@ gfc_check_argument_var_dependency (gfc_expr *var, sym_intent intent, return 0; case EXPR_ARRAY: - return gfc_check_dependency (var, expr, 1); + /* the scalarizer always generates a temporary for array constructors, + so there is no dependency. */ + return 0; case EXPR_FUNCTION: if (intent != INTENT_IN) -- cgit v1.1