blob: 157c95f5c16e7935f5a9ebf711b26c3bf4a731b3 [file] [log] [blame]
! { dg-do run }
! Tests the fix for PR33897, in which gfortran missed that the
! declaration of 'setbd' in 'nxtstg2' made it external. Also
! the ENTRY 'setbd' would conflict with the external 'setbd'.
!
! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
!
MODULE ksbin1_aux_mod
CONTAINS
SUBROUTINE nxtstg1()
INTEGER :: i
i = setbd() ! available by host association.
if (setbd () .ne. 99 ) STOP 1
END SUBROUTINE nxtstg1
SUBROUTINE nxtstg2()
INTEGER :: i
integer :: setbd ! makes it external.
i = setbd() ! this is the PR
if (setbd () .ne. 42 ) STOP 2
END SUBROUTINE nxtstg2
FUNCTION binden()
INTEGER :: binden
INTEGER :: setbd
binden = 0
ENTRY setbd()
setbd = 99
END FUNCTION binden
END MODULE ksbin1_aux_mod
PROGRAM test
USE ksbin1_aux_mod, only : nxtstg1, nxtstg2
integer setbd ! setbd is external, since not use assoc.
CALL nxtstg1()
CALL nxtstg2()
if (setbd () .ne. 42 ) STOP 3
call foo
contains
subroutine foo
USE ksbin1_aux_mod ! module setbd is available
if (setbd () .ne. 99 ) STOP 4
end subroutine
END PROGRAM test
INTEGER FUNCTION setbd()
setbd=42
END FUNCTION setbd