3 ! Tests the fix for PR44265. This test arose because of an issue found
4 ! during the development of the fix; namely the clash between the normal
5 ! module parameter and that found in the specification expression for
8 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
13 character (20) :: buffer
14 PUBLIC
:: Get
, names
, fruity
, buffer
15 CHARACTER(len
=7), PARAMETER :: names(3) = [ &
20 FUNCTION Get(i
) RESULT(s
)
21 CHARACTER(len
=7), PARAMETER :: names(3) = [ &
25 INTEGER, INTENT(IN
) :: i
26 CHARACTER(LEN_TRIM(names(i
))) :: s
31 write (buffer
, '(i2,a)') len (Get (i
)), Get (i
)
35 PROGRAM WheresThatbLinkingConstantGone
39 write (buffer
, '(i2,a)') len (Get (1)), Get (1)
40 if (trim (buffer
) .ne
. " 5Apple") STOP 1
42 if (trim (buffer
) .ne
. " 5Mango") STOP 2
43 if (trim (names(3)) .ne
. "Mangue") STOP 3
44 END PROGRAM WheresThatbLinkingConstantGone