https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60322
Antony Lewis <antony at cosmologist dot info> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |antony at cosmologist dot info
--- Comment #5 from Antony Lewis <antony at cosmologist dot info> ---
Here's another example (giving 0 and 1 for lbound)
program test
double precision x,y
x=3
y=4
call W([x,y]) !this gives wrong result (4,4)
call W([3.d0,4.d0]) !this works (3,4)
contains
subroutine W(Ar)
class(*), intent(in) :: Ar(:)
print *, lbound(ar)
select type (Ar)
type is (double precision)
print *,Ar(1:2)
end select
end subroutine
end program
