4 ! Check that inquiry refs work with statement functions
6 ! { dg-additional-options "-std=legacy -fdump-tree-optimized" }
7 ! { dg-prune-output " Obsolescent feature" }
8 ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "optimized" } }
16 im(x
) = x
%im
+ x
%re
+ x
%kind
18 if (im((1.0,3.0) + (2.0,4.0)) /= 14.) stop 1
19 if (slen('abcdef') /= 5) stop 2