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.dg/] [generic_8.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do compile }
2
! Tests the fix for PR29837, in which the following valid code
3
! would emit an error because of mistaken INTENT; the wrong
4
! specific interface would be used for the comparison.
5
!
6
! Contributed by
7
!
8
MODULE M
9
  IMPLICIT NONE
10
  INTERFACE A
11
    MODULE PROCEDURE A1,A2
12
  END INTERFACE
13
CONTAINS
14
 
15
  SUBROUTINE A2(X)
16
    INTEGER, INTENT(INOUT) :: X
17
  END SUBROUTINE A2
18
 
19
  SUBROUTINE A1(X,Y)
20
    INTEGER, INTENT(IN) :: X
21
    INTEGER, INTENT(OUT) :: Y
22
    Y=X
23
  END SUBROUTINE A1
24
 
25
  SUBROUTINE T(X)
26
    INTEGER, INTENT(IN) :: X(:)
27
    INTEGER Y
28
    CALL A(MAXVAL(X),Y)
29
  END SUBROUTINE T
30
END MODULE M
31
! { dg-final { cleanup-modules "m" } }

powered by: WebSVN 2.1.0

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