blob: 12788cc868c586ef1c91a372b7555dbf694a0e13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
program main
real :: a(10), b(10,10)
! This should be caugt
call foo(1.0) ! { dg-error "Rank mismatch" }
call foo(b) ! { dg-error "Rank mismatch" }
! This is OK
call bar(a)
call bar(b)
end program main
|