gcc/testsuite/gfortran.dg/char_result_15.f90

   1 ! { dg-do run }
   2 !
   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
   6 ! 'Get'.
   7 !
   8 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   9 !
  10 MODULE Fruits
  11   IMPLICIT NONE
  12   PRIVATE
  13   character (20) :: buffer
  14   PUBLIC :: Get, names, fruity, buffer
  15     CHARACTER(len=7), PARAMETER :: names(3) = [  &
  16         'Pomme  ',  &
  17         'Orange ',  &
  18         'Mangue ' ];
  19 CONTAINS
  20   FUNCTION Get(i) RESULT(s)
  21     CHARACTER(len=7), PARAMETER :: names(3) = [  &
  22         'Apple  ',  &
  23         'Orange ',  &
  24         'Mango  ' ];
  25     INTEGER, INTENT(IN) :: i
  26     CHARACTER(LEN_TRIM(names(i))) :: s
  27     s = names(i)
  28   END FUNCTION Get
  29   subroutine fruity (i)
  30     integer :: i
  31   write (buffer, '(i2,a)') len (Get (i)), Get (i)
  32   end subroutine
  33 END MODULE Fruits
  34
  35 PROGRAM WheresThatbLinkingConstantGone
  36   USE Fruits
  37   IMPLICIT NONE
  38   integer :: i
  39   write (buffer, '(i2,a)') len (Get (1)), Get (1)
  40   if (trim (buffer) .ne. " 5Apple") STOP 1
  41   call fruity(3)
  42   if (trim (buffer) .ne. " 5Mango") STOP 2
  43   if (trim (names(3)) .ne. "Mangue") STOP 3
  44 END PROGRAM WheresThatbLinkingConstantGone