The Identity Function
Dynamic Allocation in Fortran

     C THIS DECLARES THAT A IS AN ARRAY WITH 1 ELEMENT                      IDF0010
           INTEGER A(1)                                                     IDF0020
                                                                            IDF0030
           FOO = 17                                                         IDF0040
                                                                            IDF0050
     C I AM ANALOGOUS TO PTR = &FOO IN C                                    IDF0060
           PTR = IADDR(FOO)                                                 IDF0070
                                                                            IDF0080
     C I AM ANALOGOUS TO BAR = *PTR IN C                                    IDF0090
           OFFSET = (PTR-IADDR(A))/4 + 1                                    IDF0100
           BAR = A(OFFSET)                                                  IDF0110
                                                                            IDF0120
     C ANYWAY THE KEY FEATURE HERE IS IADDR                                 IDF0130
     C WHICH IS NOTHING MORE THAN THE IDENTITY FUNCTION                     IDF0140
     C IMPLEMENTED IN SYSTEM/370 ASSEMBLY LANGUAGE                          IDF0150
                                                                            IDF0160
     C NOTE THAT THIS ALL DEPENDS ON THE FACT                               IDF0170
     C THAT FORTRAN IS NOT DOING ANY ARRAY BOUNDS CHECKING                  IDF0180
                                                                            IDF0190
     C GOD HOW I LOVE FORTRAN                                               IDF0200
                                                                            IDF0210
     C PLEASE KILL ME NOW                                                   IDF0220
           END                                                              IDF0230