1238384Sjkim! { dg-do run } 2238384Sjkim! Test the fix for PR61406 3238384Sjkim! Contributed by Adam Hirst <adam@aphirst.karoo.co.uk> 4238384Sjkimprogram test 5238384Sjkim implicit none 6238384Sjkim real :: theta = 1.0 7238384Sjkim 8238384Sjkim associate (n => [cos(theta), sin(theta)]) 9238384Sjkim if (abs (norm2(n) - 1.0) .gt. 1.0e-4) call abort 10238384Sjkim end associate 11238384Sjkim 12238384Sjkimend program test 13238384Sjkim