! { dg-do run } | |
! { dg-require-effective-target lto } | |
! { dg-options "-flto" } | |
! Check that there are no warnings with LTO for a KIND argument. | |
! | |
program test | |
implicit none | |
real, allocatable :: x(:,:) | |
allocate(x(2,5)) | |
if (any(shape(x) /= [ 2, 5 ])) STOP 1 | |
if (any(shape(x,kind=1) /= [ 2, 5 ])) STOP 2 | |
if (any(shape(x,kind=2) /= [ 2, 5 ])) STOP 3 | |
if (any(shape(x,kind=4) /= [ 2, 5 ])) STOP 4 | |
if (any(shape(x,kind=8) /= [ 2, 5 ])) STOP 5 | |
end program test |