3 ! Test the fix for PR37735, in which gfc gagged in the assignement to
4 ! 'p'. The array component 'r' caused an ICE.
6 ! Contributed by Steven Winfield <saw44@cam.ac.uk>
8 module PrettyPix_module
11 real, allocatable, dimension(:) ::y2
17 type(path) :: look_at_path
20 subroutine scene_set_look_at_path(this,p)
21 type(scene), intent(inout) :: this
22 type(path), intent(in) :: p
24 end subroutine scene_set_look_at_path
25 end module PrettyPix_module
30 real :: x(3) = [1.0, 2.0, 3.0]
33 p = path ([spline([x(1)]),spline([x(2)]),spline([x(3)])])
34 call scene_set_look_at_path(this,p)
36 if (this%look_at_path%r(i)%y2(1) .ne. x(i)) call abort
40 ! { dg-final { cleanup-modules "PrettyPix_module" } }