gcc/testsuite/gfortran.dg/associate_29.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR82121
   4 !
   5 ! Contributed by Iain Miller  <iain.miller@ecmwf.int>
   6 !
   7 MODULE YOMCDDH
   8   IMPLICIT NONE
   9   SAVE
  10   TYPE :: TCDDH
  11     CHARACTER(len=12),ALLOCATABLE :: CADHTLS(:)
  12   END TYPE TCDDH
  13   CHARACTER(len=12),ALLOCATABLE :: CADHTTS(:)
  14   TYPE(TCDDH), POINTER :: YRCDDH => NULL()
  15 END MODULE YOMCDDH
  16
  17
  18 SUBROUTINE SUCDDH()
  19   USE YOMCDDH  , ONLY : YRCDDH,CADHTTS
  20   IMPLICIT NONE
  21   ALLOCATE (YRCDDH%CADHTLS(20))
  22   ALLOCATE (CADHTTS(20))
  23   ASSOCIATE(CADHTLS=>YRCDDH%CADHTLS, NORMCHAR=>CADHTTS)
  24 ! Direct reference to character array compiled correctly
  25 !    YRCDDH%CADHTLS(1)='SVGTLF'
  26 ! Reference to associated variable name failed to compile
  27     CADHTLS(2)='SVGTLT'
  28     NORMCHAR(1)='SVLTTC'
  29   END ASSOCIATE
  30 END SUBROUTINE SUCDDH