!=======================================================================
!   FILE: INTENT3.F90
!   DATE: 21 July 2003
!
!   TEST: Check whether modifying a variable associated with a
!         INTENT(IN) argument is detected - Case 3.
!
!   Author/contact:  Arnaud Desitter
!=======================================================================
module m1
contains
  subroutine s1(x)
    real, intent(in) :: x
    ! s3 is modifying x.
    call s3(x)
  end subroutine s1
end module m1

program main
  use m1
  real :: x
  x = 4.
  call s1(x)
  write(unit=*,fmt=*) x
end program main

subroutine s3(x)
  real :: x
  x = 3.
end subroutine s3