3 ! Test the fix for PR82121
5 ! Contributed by Iain Miller <iain.miller@ecmwf.int>
11 CHARACTER(len
=12),ALLOCATABLE
:: CADHTLS(:)
13 CHARACTER(len
=12),ALLOCATABLE
:: CADHTTS(:)
14 TYPE(TCDDH
), POINTER :: YRCDDH
=> NULL()
19 USE YOMCDDH
, ONLY
: YRCDDH
,CADHTTS
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