| ! { dg-do compile } | |
| ! | |
| ! Test the fix for PR95352 | |
| ! | |
| module ice6_m | |
| implicit none | |
| contains | |
| function ice6_s(a) result(ierr) | |
| integer, intent(in) :: a(..) | |
| integer :: ierr | |
| integer :: lb | |
| select rank(a) | |
| rank(*) | |
| lb = lbound(a, dim=1) | |
| if(lbound(a, dim=1)/=lb) ierr = -1 | |
| end select | |
| return | |
| end function ice6_s | |
| end module ice6_m |