2 ! Tests the fix for PR33897, in which gfortran missed that the
3 ! declaration of 'setbd' in 'nxtstg2' made it external. Also
4 ! the ENTRY 'setbd' would conflict with the external 'setbd'.
6 ! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
12 i = setbd() ! available by host association.
13 if (setbd () .ne. 99 ) call abort ()
14 END SUBROUTINE nxtstg1
18 integer :: setbd ! makes it external.
19 i = setbd() ! this is the PR
20 if (setbd () .ne. 42 ) call abort ()
21 END SUBROUTINE nxtstg2
30 END MODULE ksbin1_aux_mod
33 USE ksbin1_aux_mod, only : nxtstg1, nxtstg2
34 integer setbd ! setbd is external, since not use assoc.
37 if (setbd () .ne. 42 ) call abort ()
41 USE ksbin1_aux_mod ! module setbd is available
42 if (setbd () .ne. 99 ) call abort ()
46 INTEGER FUNCTION setbd()
50 ! { dg-final { cleanup-modules "ksbin1_aux_mod" } }