3 ! PR fortran/38657, in which the mixture of PRIVATE and
4 ! COMMON in TEST4, would mess up the association with
7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 ! From a report in clf by Chris Bradley.
12 CHARACTER(LEN=80) :: T1 = &
13 "Mary had a little lamb, Its fleece was white as snow;"
14 CHARACTER(LEN=80) :: T2 = &
15 "And everywhere that Mary went, The lamb was sure to go."
16 CHARACTER(LEN=80) :: TESTCHAR
17 COMMON /TESTCOMMON1/ TESTCHAR
20 subroutine FOOBAR (CHECK)
21 CHARACTER(LEN=80) :: CHECK
22 IF (TESTCHAR .NE. CHECK) CALL ABORT
27 CHARACTER(LEN=80) :: TESTCHAR
28 COMMON /TESTCOMMON1/ TESTCHAR
33 USE TEST3, chr => testchar
35 CHARACTER(LEN=80) :: TESTCHAR
36 COMMON /TESTCOMMON1/ TESTCHAR
37 PUBLIC TESTCHAR, FOO, BAR, CHR, T1, T2, FOOBAR
42 subroutine BAR (CHECK)
43 CHARACTER(LEN=80) :: CHECK
44 IF (TESTCHAR .NE. CHECK) CALL ABORT
45 IF (CHR .NE. CHECK) CALL ABORT
57 ! { dg-final { cleanup-modules "TEST2 TEST3 TEST4" } }