URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_shape_ranks_1.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests fix for PR25070; was no error for actual and assumed shape
! dummy ranks not matching.
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
module addon
interface extra
function foo (y)
integer :: foo (2), y (:)
end function foo
end interface extra
end module addon
use addon
INTEGER :: I(2,2)
I=RESHAPE((/1,2,3,4/),(/2,2/))
CALL TST(I) ! { dg-error "Type/rank mismatch in argument" }
i = foo (i) ! { dg-error "Type/rank mismatch|Incompatible ranks" }
CONTAINS
SUBROUTINE TST(I)
INTEGER :: I(:)
write(6,*) I
END SUBROUTINE TST
END
! { dg-final { cleanup-modules "addon" } }
Go to most recent revision | Compare with Previous | Blame | View Log