[Bug fortran/43169] [OOP] gfortran rejects pure procedure with select type construct

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2010-02-25 08:38 -------
Confirmed. Here is a reduced test case:

  pure subroutine swap(x)
    implicit none
    type :: myType
      real :: a
    end type myType
    class(myType), intent(inout) :: x
    select type(x)
    class is (myType)
      x%a = 42.
    end select
  end subroutine

Thanks for the report!


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-02-25 08:38:03
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43169