blob: 0416fd67b69b308a4c1f7199a20de2602174a946 [file] [log] [blame]
! { dg-do compile }
!
! Testcase from PR 54656
! Checking for NORM2 for large float kinds
!
program test
implicit none
! k1 and k2 will be large real kinds, if supported, and single/double
! otherwise
integer, parameter :: k1 = &
max(selected_real_kind(precision(0.d0) + 1), kind(0.))
integer, parameter :: k2 = &
max(selected_real_kind(precision(0._k1) + 1), kind(0.d0))
real(kind=k1) :: d1(10), z1
real(kind=k2) :: d2(10), z2
d1 = 1 ; d2 = 1
z1 = norm2 (d1)
z2 = norm2 (d2)
print *, z1, z2
end program test