arm: Add .type and .size to __gnu_cmse_nonsecure_call [PR115360]

[official-gcc.git] / gcc / testsuite / gfortran.dg / warn_unused_dummy_argument_5.f90

! { dg-do compile }
! { dg-additional-options "-Wunused-dummy-argument" }
! PR 91557 - this used to generate a bogus warning
! Test case by Gerhard Steinmetz
program p
   integer :: a, b
   a = 1
   call g
contains
   subroutine g
      integer :: x, y
      call h (x, y)
      if ( a > 0 )   y = y - 1
      b = y - x + 1
   end
end