From 0b73eb812e8455701ef3044839f6de2ee895b15b Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 31 Jan 2012 19:38:43 +0100 Subject: re PR fortran/52029 ([OOP] _copy should be PURE) 2012-01-31 Tobias Burnus PR fortran/52029 * class.c (gfc_find_derived_vtab): Mark _copy function as pure. 2012-01-31 Tobias Burnus PR fortran/52029 * gfortran.dg/class_49.f90: New. From-SVN: r183770 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/class.c | 1 + 2 files changed, 6 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b39e037..a0397cc 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2012-01-31 Tobias Burnus + PR fortran/52029 + * class.c (gfc_find_derived_vtab): Mark _copy function as pure. + +2012-01-31 Tobias Burnus + PR fortran/52013 * class.c (get_unique_hashed_string): Adapt trim length. (gfc_build_class_symbol) Encode also corank in the container name. diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 3ff6a0b..0d47979 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -717,6 +717,7 @@ gfc_find_derived_vtab (gfc_symbol *derived) sub_ns->proc_name = copy; copy->attr.flavor = FL_PROCEDURE; copy->attr.subroutine = 1; + copy->attr.pure = 1; copy->attr.if_source = IFSRC_DECL; /* This is elemental so that arrays are automatically treated correctly by the scalarizer. */ -- cgit v1.1