| ! Exercises the following rules for co-array declarations: |
| ! R531-533 |
| ! J. Overbey - 7 Dec 2009 |
| |
| implicit none |
| |
| integer, parameter :: FIVE = 5 |
| |
| integer :: ar1, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, & |
| deferred1, deferred2, deferred3, deferred4, deferred5, & |
| explicit1, explicit2, explicit3, explicit4, explicit5, explicit6 |
| |
| codimension :: ar1[*] |
| codimension ar2[*] |
| |
| contiguous :: ar3 |
| contiguous ar4 |
| |
| contiguous :: ar5, ar6, ar7 |
| contiguous ar8, ar9, ar10 |
| |
| codimension :: deferred1[:], deferred2[:,:], deferred3[:,:,:] |
| codimension deferred4[:,:,:,:], & |
| deferred5[:,:,:,:,:] |
| |
| codimension :: explicit1[3:5, 7, 9:*] |
| codimension :: explicit2[3:5, 7, *] |
| codimension :: explicit3[ 5, 7, *] |
| codimension :: explicit4[ 7, *] |
| codimension :: explicit5[ 3+7, *], & |
| explicit6[(FIVE+1)*2, (FIVE+1)*2:*] |
| |
| end program |