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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [intent_out_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR fortran/34662
4
! The INTENT error was not detected.
5
! Test case contributed by Joost VandeVondele.
6
!
7
MODULE M1
8
 TYPE T1
9
  INTEGER :: I(3)
10
 END TYPE T1
11
 TYPE(T1), PARAMETER :: D1=T1((/1,2,3/))
12
CONTAINS
13
 SUBROUTINE S1(J)
14
  INTEGER, INTENT(INOUT) :: J
15
 END SUBROUTINE S1
16
END MODULE M1
17
USE M1
18
CALL S1(D1%I(3)) ! { dg-error "variable definition context" }
19
END
20
! { dg-final { cleanup-modules "m1" } }

powered by: WebSVN 2.1.0

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