XL Fortran Enterprise Edition for AIX : User's Guide - IBM

Examples of Storage Relationships for -qautodbl Suboptions
The examples in this section illustrate storage-sharing relationships between the
following types of entities:
v
v
v
v
v
v
v
v
v
REAL(4)
REAL(8)
REAL(16)
COMPLEX(4)
COMPLEX(8)
COMPLEX(16)
INTEGER(8)
INTEGER(4)
CHARACTER(16).
Note: In the diagrams, solid lines represent the actual data, and dashed lines
represent padding.
0 4 8 16 32
64
COMPLEX (16)
COMPLEX (8)
COMPLEX (4)
REAL (16)
REAL (8)
REAL (4)
INTEGER (8)
INTEGER (4)
CHARACTER (16)
Figure 6. Storage Relationships without the -qautodbl Option
The figure above illustrates the default storage-sharing relationship of the compiler.
@process autodbl(none)
block data
complex(4) x8 /(1.123456789e0,2.123456789e0)/
real(16) r16(2) /1.123q0,2.123q0/
integer(8) i8(2) /1000,2000/
character*5 c(2) /"abcde","12345"/
common /named/ x8,r16,i8,c
end
subroutine s()
complex(4) x8
real(16) r16(2)
integer(8) i8(2)
character*5 c(2)
common /named/ x8,r16,i8,c
! x8 = (1.123456e0,2.123456e0) ! promotion did not occur
! r16(1) = 1.123q0 ! no padding
! r16(2) = 2.123q0 ! no padding
! i8(1) = 1000 ! no padding
! i8(2) = 2000 ! no padding
! c(1) = "abcde" ! no padding
! c(2) = "12345" ! no padding
end subroutine s
414 XL Fortran Enterprise Edition for AIX : User’s Guide