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

[janus at gcc dot gnu dot org]

------- Comment #9 from janus at gcc dot gnu dot org  2010-03-01 12:47 -------
Even with the patch from comment #7, another thing goes wrong with BLOCK
statements:

  pure subroutine swap
    implicit none
    real :: r1
    block
      real :: r2
      r1 = 42.
      r2 = 43.
    end block
  end subroutine


      r1 = 42.
      1
Error: Cannot assign to variable 'r1' in PURE procedure at (1)

This is rejected although it is valid.


-- 


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