gcc/testsuite/gfortran.dg/assumed_type_17.f90

! { dg-do compile }
! { dg-additional-options "-std=f2018 -fdump-tree-original" }
!
! PR fortran/104143
!
 interface
   subroutine foo(x)
     type(*) :: x(*)
   end
 end interface
 integer :: a
 call foo(a)
 call foo((a))
end

! { dg-final { scan-tree-dump-times "foo \\(&a\\);" 1 "original" } }
! { dg-final { scan-tree-dump-times "D.\[0-9\]+ = a;" 1 "original" } }
! { dg-final { scan-tree-dump-times "foo \\(&D.\[0-9\]+\\);" 1 "original" } }