!=======================================================================
!   FILE: INTENT4.F90
!   DATE: 21 July 2003
!
!   TEST: Check whether association of an expression with an
!         INTENT(INOUT) argument is detected.
!
!   Author/contact:  Arnaud Desitter
!=======================================================================
module m2
contains
  subroutine s2(x)
    real, intent(inout) :: x
    write(unit=*,fmt=*) x
  end subroutine s2
end module m2

program main
  call s3(4.)
end program main

subroutine s3(x)
  use m2
  real :: x
  ! x in s2 is inout.
  call s2(x)
end subroutine s3