Old Hitachi f90 compiler for SR11000 fails to
compile src/27_toolbox_oop/m_iterators.F90.
Code: Select all
--- ../../../src/27_toolbox_oop/m_iterators.F90 2010-07-18 03:58:57.000000000 +0900
+++ ./m_iterators.F90 2010-07-26 21:29:21.000000000 +0900
@@ -290,7 +290,7 @@
do i2=LBOUND(Iter2%slice,DIM=2),UBOUND(Iter2%slice,DIM=2)
do i1=LBOUND(Iter2%slice,DIM=1),UBOUND(Iter2%slice,DIM=1)
Iter2%slice(i1,i2)%leng=0
- Iter2%slice(i1,i2)%indx => null()
+ nullify(Iter2%slice(i1,i2)%indx)
end do
end do