| ! { dg-do compile } | |
| ! Test the fix for PR40158, where the errro message was not clear about scalars. | |
| ! | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| ! | |
| implicit none | |
| integer :: i(4,5),j | |
| i = 0 | |
| call sub1(i) | |
| call sub1(j) ! { dg-error "rank-1 and scalar" } | |
| call sub2(i) ! { dg-error "scalar and rank-2" } | |
| call sub2(j) | |
| print '(5i0)', i | |
| contains | |
| subroutine sub1(i1) | |
| integer :: i1(*) | |
| i1(1) = 2 | |
| end subroutine sub1 | |
| subroutine sub2(i2) | |
| integer :: i2 | |
| i2 = 2 | |
| end subroutine sub2 | |
| end |