[Bug fortran/54756] [OOP] [F08] Should reject CLASS, intent(out) in PURE procedures

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=54756

--- Comment #8 from janus at gcc dot gnu.org ---
Author: janus
Date: Sat Dec 27 22:40:21 2014
New Revision: 219085

URL: https://gcc.gnu.org/viewcvs?rev=219085&root=gcc&view=rev
Log:
2014-12-27  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/54756
    * resolve.c (resolve_formal_arglist): Reject polymorphic INTENT(OUT)
    arguments of pure procedures.

2014-12-27  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/54756
    * gfortran.dg/class_array_3.f03: Fixed invalid test case.
    * gfortran.dg/class_array_7.f03: Ditto.
    * gfortran.dg/class_dummy_4.f03: Ditto.
    * gfortran.dg/defined_assignment_3.f90: Ditto.
    * gfortran.dg/defined_assignment_5.f90: Ditto.
    * gfortran.dg/elemental_subroutine_10.f90: Ditto.
    * gfortran.dg/typebound_operator_4.f03: Ditto.
    * gfortran.dg/typebound_proc_16.f03: Ditto.
    * gfortran.dg/unlimited_polymorphic_19.f90: Ditto.
    * gfortran.dg/class_dummy_5.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/class_dummy_5.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/class_array_3.f03
    trunk/gcc/testsuite/gfortran.dg/class_array_7.f03
    trunk/gcc/testsuite/gfortran.dg/class_dummy_4.f03
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_3.f90
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_5.f90
    trunk/gcc/testsuite/gfortran.dg/elemental_subroutine_10.f90
    trunk/gcc/testsuite/gfortran.dg/typebound_operator_4.f03
    trunk/gcc/testsuite/gfortran.dg/typebound_proc_16.f03
    trunk/gcc/testsuite/gfortran.dg/unlimited_polymorphic_19.f90