Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

Associate statement not associating

IanH
Honored Contributor III
776 Views

With 12.0.5

[fortran]! ifort /check:all /warn:all /standard-semantics xxx.f90
PROGRAM feeling_dissassociated  
  IMPLICIT NONE
  TYPE String
    CHARACTER(:), ALLOCATABLE :: Item
  END TYPE String
  TYPE(String), ALLOCATABLE :: array(:)  
  !****  
  array = [String('bananas')]  
  ! Ok.
  PRINT "('Yasi ate all my ',A,'.')", array(1)%item  
  ASSOCIATE(fruit => array(1)%Item)
    ! Not ok.
    PRINT "('Yasi ate all my ',A,'.')", fruit
  END ASSOCIATE  
END PROGRAM feeling_dissassociated
[/fortran]
0 Kudos
3 Replies
Steven_L_Intel1
Employee
776 Views
Thanks. we'll take a look.
0 Kudos
Steven_L_Intel1
Employee
776 Views
Escalated as DPD200172824.
0 Kudos
Steven_L_Intel1
Employee
776 Views
I expect the fix for this to appear in a release later this year.
0 Kudos
Reply