------- 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