blob: b25bcc265d6c5dd0a5fb22e4f3732dae7cf85fff [file] [log] [blame]
! { dg-do run }
! Test the fix for PR61406
! Contributed by Adam Hirst <adam@aphirst.karoo.co.uk>
program test
implicit none
real :: theta = 1.0
associate (n => [cos(theta), sin(theta)])
if (abs (norm2(n) - 1.0) .gt. 1.0e-4) STOP 1
end associate
end program test