https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87577
--- Comment #6 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Tried to tweak udr4.f90:
--- udr4.f90.jj 2018-03-27 12:55:12.401248156 +0200
+++ udr4.f90 2018-10-11 11:32:36.259912746 +0200
@@ -32,16 +32,22 @@
c(j,1,k) = trim(c(j,1,k)) // char (ichar ('0') + i)
d = char (ichar ('0') + i) // d
e = char (ichar (e) + mod (i, 3))
- f = char (ichar (f(:,:)(1:1)) + mod (i, 2)) &
-& // char (ichar (f(:,:)(2:2)) + mod (i, 3))
+ forall (j = 8:10, k = 9:10)
+ f(j,k) = char (ichar (f(j,k)(1:1)) + mod (i, 2)) &
+& // char (ichar (f(j,k)(2:2)) + mod (i, 3))
+ end forall
end do
do i = 1, 64
if (any (index (c, char (ichar ('0') + i)) .eq. 0)) STOP 1
if (any (index (d, char (ichar ('0') + i)) .eq. 0)) STOP 2
end do
if (any (e.ne.char (ichar ('0') + 64))) STOP 3
- if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) STOP 4
- if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) STOP 5
+ do j = 8, 10
+ do k = 9, 10
+ if (f(j,k)(1:1).ne.char (ichar ('0') + 32)) STOP 4
+ if (f(j,k)(2:2).ne.char (ichar ('0') + 64)) STOP 5
+ end do
+ end do
end
elemental function fn (x, y)
character (len=64), intent (in) :: x, y
and while that now compiles without -fopenmp, it still doesn't like the
omp_in/omp_out vars.
