OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [nullarg.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! This is the testcase from PR 12841. We used to report a type/rank mismatch
2
! when passing NULL() as an argument to a function.
3
   MODULE T
4
   PUBLIC :: A
5
   CONTAINS
6
   SUBROUTINE A(B)
7
   REAL, POINTER :: B
8
   IF (ASSOCIATED(B)) CALL ABORT()
9
   END SUBROUTINE A
10
   END MODULE T
11
   USE T
12
   CALL A(NULL())
13
   END

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.