(j3.2006) POINTER initializations in BLOCK DATA

Robert Corbett Robert.Corbett
Tue Apr 21 21:33:15 EDT 2009


Is the following code fragment conforming Fortran 2008:

       MODULE M
         TYPE T
           REAL R
         END TYPE
       END

       BLOCK DATA
         USE M
         TYPE(T) :: X
         COMMON /ABC/ P
         CLASS(*), POINTER :: P => X
       END

It seems to be, but I might have overlooked something.

Bob Corbett



More information about the J3 mailing list