Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
FPGA community forums and blogs on community.intel.com are migrating to the new Altera Community and are read-only. For urgent support needs during this transition, please visit the FPGA Design Resources page or contact an Altera Authorized Distributor.
29281 Discussions

Coarrays and allocatable components again

Nick_M_3
New Contributor I
‎07-31-2014 01:12 AM
468 Views

This may overlap with previous issues, but is simpler.

PROGRAM Main
    TYPE :: Mytype
        INTEGER, ALLOCATABLE :: ptr(:)
    END TYPE Mytype
    TYPE(Mytype) :: coarray


  •     ALLOCATE(coarray%ptr(3))    
        IF (THIS_IMAGE() == 2) coarray%ptr = 123
        SYNC ALL
        IF (THIS_IMAGE() == 1) THEN
            coarray = coarray[2]
            PRINT *, coarray%ptr
        END IF
    END PROGRAM Main

    •  -1083162920       32767 -1083162920

     

     

    0 Kudos

    Link Copied

    2 Replies
    Steven_L_Intel1
    Employee
    ‎07-31-2014 06:08 AM
    468 Views

    Thanks, Nick, We'll check this out.

    0 Kudos
    Copy link
    Steven_L_Intel1
    Employee
    ‎07-31-2014 10:49 AM
    468 Views

    This is an issue we're already working on. Issue ID is DPD200255148.

    0 Kudos
    Copy link
    Reply

    Community support is provided Monday to Friday. Other contact methods are available here.

    Intel does not verify all solutions, including but not limited to any file transfers that may appear in this community. Accordingly, Intel disclaims all express and implied warranties, including without limitation, the implied warranties of merchantability, fitness for a particular purpose, and non-infringement, as well as any warranty arising from course of performance, course of dealing, or usage in trade.

    For more complete information about compiler optimizations, see our Optimization Notice.