10 real,allocatable,intent(out),optional :: a(:)
12 if(allocated(a)) call abort()
19 real,allocatable,intent(out),optional :: a(:)
23 if(a(1) /= 5) call abort()
26 end module test_module
31 real, allocatable :: x(:)
36 if(x(1) /= 5) call abort()
39 ! { dg-final { cleanup-modules "test_module" } }