https://gcc.gnu.org/bugzilla/show_bug.cgi?id=116468
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pault at gcc dot gnu.org
--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
This is fixed on all current branches! I am not sure when or how.
I am inclined to close this PR to reduce the clutter but will keep it in my
local testsuite against accidents in my coming PDT work. At risk of adding
still more 'run' testcases, should I push the test below?
Paul
! { dg-do run }
implicit none
type foo_t(k)
integer, kind :: k
real(k), allocatable :: bar(:)
end type
type(foo_t(kind(0.))) foo
if (kind (foo%k) /= kind(0.0)) stop 1
if (kind (foo%bar) /= kind(0.0)) stop 2
foo%bar = [1.,2.,3.]
if (any (int (foo%bar * 1000) /= 1000 * [1,2,3])) stop 3
foo%bar = [-1.,-2.]
if (any (int (foo%bar * 1000) /= 1000 * [-1,-2])) stop 4
end
