diff options
| author |   Angelos Mouzakitis <a.mouzakitis@virtualopensystems.com> | 2023-10-10 14:33:42 +0000 |
|---|---|---|
| committer | Angelos Mouzakitis <a.mouzakitis@virtualopensystems.com> | 2023-10-10 14:33:42 +0000 |
| commit | af1a266670d040d2f4083ff309d732d648afba2a (patch) | |
| tree | 2fc46203448ddcc6f81546d379abfaeb323575e9 /meson/test cases/fortran/19 fortran_std/std95.f90 | |
| parent | e02cda008591317b1625707ff8e115a4841aa889 (diff) | |
Change-Id: Iaf8d18082d3991dec7c0ebbea540f092188eb4ec
Diffstat (limited to 'meson/test cases/fortran/19 fortran_std/std95.f90')
| -rw-r--r-- | meson/test cases/fortran/19 fortran_std/std95.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/meson/test cases/fortran/19 fortran_std/std95.f90 b/meson/test cases/fortran/19 fortran_std/std95.f90 new file mode 100644 index 000000000..2837da86a --- /dev/null +++ b/meson/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 |