1! { dg-do run }2! Test the fix for PR614063! Contributed by Adam Hirst <adam@aphirst.karoo.co.uk>4program test5implicitnone6real :: theta = 1.078associate (n => [cos(theta), sin(theta)])
9if (abs (norm2(n) - 1.0) .gt. 1.0e-4) STOP110endassociate1112end program test13