!=======================================================================
!   FILE: INTENT5.F90
!   DATE: 21 July 2003
!
!   TEST: Check whether association of an expression with an
!         INTENT(OUT) argument is detected.
!
!   Author/contact:  Arnaud Desitter
!=======================================================================
module m2
contains
  subroutine s2(x)
    real, intent(out) :: x
    x = 5.
    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 out.
  call s2(x)
end subroutine s3