I just learned that FORALL is obsolescent in Fortran 2018; removed

2022-10-05 14:30:02 -05:00
parent 7fa020e574
commit e3b5514b62
3 changed files with 11 additions and 11 deletions
--- a/unittest/fortran/test_fortran_properties.f90
+++ b/unittest/fortran/test_fortran_properties.f90
@ -43,10 +43,10 @@ FUNCTION f_lammps_extract_setting(Cstr) BIND(C)
      i = i + 1
   END DO
   strlen = i
-   allocate (CHARACTER(LEN=strlen) :: Fstr)
-   FORALL (i=1:strlen)
+   ALLOCATE(CHARACTER(LEN=strlen) :: Fstr)
+   DO i = 1, strlen
      Fstr(i:i) = Cstr(i)
-   END FORALL
+   END DO
   f_lammps_extract_setting = lmp%extract_setting(Fstr)
   DEALLOCATE(Fstr)
 END FUNCTION f_lammps_extract_setting