| ! { 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 |
