| ! { dg-do run } |
| ! |
| ! From posting by Spectrum to clf on thread entitled "Bounds for array pointer dummy argument". |
| ! |
| PROGRAM X |
| implicit none |
| TYPE T |
| INTEGER :: I |
| END TYPE T |
| TYPE(T), TARGET :: T1( 0:3 ) |
| |
| associate( P => T1 % I ) |
| call check (lbound (P, 1), ubound (P, 1) ,1 , 4) |
| endassociate |
| |
| associate( P2 => T1(:) % I ) |
| call check (lbound (P2, 1), ubound (P2, 1) ,1 , 4) |
| endassociate |
| |
| associate( Q => T1 ) |
| call check (lbound (Q, 1), ubound (Q, 1) ,0 , 3) |
| endassociate |
| |
| associate( Q2 => T1(:) ) |
| call check (lbound (Q2, 1), ubound (Q2, 1) ,1 , 4) |
| endassociate |
| contains |
| subroutine check (lbnd, ubnd, lower, upper) |
| integer :: lbnd, ubnd, lower, upper |
| if (lbnd .ne. lower) STOP 1 |
| if (ubnd .ne. upper) STOP 2 |
| end subroutine |
| END PROGRAM X |
