gcc/testsuite/gfortran.dg/assumed_type_17.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-std=f2018 -fdump-tree-original" }
   3 !
   4 ! PR fortran/104143
   5 !
   6  interface
   7    subroutine foo(x)
   8      type(*) :: x(*)
   9    end
  10  end interface
  11  integer :: a
  12  call foo(a)
  13  call foo((a))
  14 end
  15
  16 ! { dg-final { scan-tree-dump-times "foo \\(&a\\);" 1 "original" } }
  17 ! { dg-final { scan-tree-dump-times "D.\[0-9\]+ = a;" 1 "original" } }
  18 ! { dg-final { scan-tree-dump-times "foo \\(&D.\[0-9\]+\\);" 1 "original" } }