!** Copyright (c) 2003, NVIDIA CORPORATION.  All rights reserved.
!**
!** Licensed under the Apache License, Version 2.0 (the "License");
!** you may not use this file except in compliance with the License.
!** You may obtain a copy of the License at
!**
!**     http://www.apache.org/licenses/LICENSE-2.0
!**
!** Unless required by applicable law or agreed to in writing, software
!** distributed under the License is distributed on an "AS IS" BASIS,
!** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
!** See the License for the specific language governing permissions and
!** limitations under the License.

! check whether inlining with optional arguments works
! if the argument is not type scalar integer
! this test: inline a nonmodule subroutine into a nonmodule subroutine
module m
 real result(6)
 real expect(6)
 data expect/99,100,101,99,100,0/
end module
 subroutine s1( a, b, c )
  real :: a
  real :: b
  real,optional :: c

  a = 99
  b = 100
  if( present(c) ) c = 101
 end subroutine

 subroutine s2
  use m
  real a
  data a/1/	! data statement prevents s2 from being inlined
		! we just want to inline s1
  interface 
   subroutine s1( a, b, c )
    real :: a
    real :: b
    real,optional :: c
   end subroutine
  end interface
  result(6) = 0
  call s1( result(1), result(2), result(3) )
  call s1( result(4), result(5) )
 end subroutine

program p
  use m
 call s2()
 !print *,result
 call check(result,expect,6)
end program