2 ! Tests the fix for PR29321 and PR29322, in which ICEs occurred for the
3 ! lack of proper attention to checking pointers in gfc_conv_function_call.
5 ! Contributed by Olav Vahtras <vahtras@pdc.kth.se>
6 ! and Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
13 FUNCTION FUNC(A,B) RESULT(E)
22 SUBROUTINE SUB(A,E,B,C)
32 if (isscan () /= 0) call abort
34 integer function isscan (substr)
35 character(*), optional :: substr
36 if (.not.present(substr)) isscan = myscan ("foo", "over")
39 ! { dg-final { cleanup-modules "myint" } }