2 ! { dg-options "-fcray-pointer" }
4 ! Test the fix for a runtime error
5 ! Contributed by Mike Kumbera <kumbera1@llnl.gov>
15 POINTER ( ipfoo
, foo(3,7) )
38 !fails if * is the last dimension
39 POINTER ( ipfoo
, foo(n
,*) )
41 !works if the last dimension is specified
42 !POINTER ( ipfoo, foo(n,m) )
47 if (abs (boo
- 2.0) .gt
. 1e-6) STOP 1
51 end subroutine use_foo