[Bug fortran/103418] random_number() does not accept pointer, intent(in) array argument

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103418

--- Comment #10 from anlauf at gcc dot gnu.org ---
(In reply to Steve Kargl from comment #9)
> "does not work for me" isn't too descriptive.

Well, you fixed a related issue, but not the problem in comment#0.

Try your patch on:

module m
contains
  subroutine s1 (a, b)
    real, pointer, intent(in) :: a, b(:)
    call random_number (a)
    call random_number (b)
  end subroutine s1
end module