https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90350
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2019-05-08
Ever confirmed|0 |1
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from at least 4.4 up to trunk (10.0). This is caused by the line
write(*,*)'UPPER=',ubound(arr(:n))
Work around: use
integer,intent(in) :: n
integer,intent(in) :: arr(n)
