diff options
Diffstat (limited to 'test cases/fortran/19 fortran_std/std95.f90')
| -rw-r--r-- | test cases/fortran/19 fortran_std/std95.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test cases/fortran/19 fortran_std/std95.f90 b/test cases/fortran/19 fortran_std/std95.f90 new file mode 100644 index 0000000..2837da8 --- /dev/null +++ b/test cases/fortran/19 fortran_std/std95.f90 @@ -0,0 +1,14 @@ +program main +implicit none + +integer :: i, j +integer, parameter :: N=3 +real :: A(N,N) + +A = 0 + +forall (i=1:N, j=1:N) + A(i,j) = 1 +end forall + +end program |