gcc/testsuite/gfortran.dg/parameter_array_element_3.f90

   1 ! { dg-do compile }
   2 ! PR 51260 - an unneeded parameter found its way into the
   3 ! assembly code. Original test case by Tobias Burnus.
   4 module x
   5 contains
   6   subroutine foo(i)
   7     integer, intent(in) :: i
   8   end subroutine foo
   9 end module x
  10
  11 program main
  12   use x
  13   integer, parameter:: unneeded_parameter (10000)=(/(i,i=1,10000)/)
  14   call foo(unneeded_parameter (1))
  15   print *,unneeded_parameter (1)
  16 end program
  17 ! { dg-final { scan-assembler-times "unneeded_parameter" 0 } }