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