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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [interface_24.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
! This tests the fix for PR36361: If a function was declared in an INTERFACE
4
! statement, no attributes may be declared outside of the INTERFACE body.
5
!
6
! Contributed by Janus Weil 
7
 
8
module m1
9
  interface
10
    real function f1()
11
    end function
12
  end interface
13
  dimension :: f1(4)  ! { dg-error "outside its INTERFACE body" }
14
end module
15
 
16
 
17
module m2
18
  dimension :: f2(4)
19
  interface
20
    real function f2()  ! { dg-error "outside its INTERFACE body" }
21
    !end function
22
  end interface
23
end module
24
 
25
 
26
! valid
27
module m3
28
  interface
29
    real function f3()
30
      dimension :: f3(4)
31
    end function
32
  end interface
33
end module
34
 
35
 
36
module m4
37
  interface
38
    function f4()  ! { dg-error "cannot have a deferred shape" }
39
      real :: f4(:)
40
    end function
41
  end interface
42
  allocatable :: f4  ! { dg-error "outside of INTERFACE body" }
43
end module
44
 
45
 
46
module m5
47
  allocatable :: f5(:)
48
  interface
49
    function f5()  ! { dg-error "outside its INTERFACE body" }
50
      !real f5(:)
51
    !end function
52
  end interface
53
end module
54
 
55
 
56
!valid
57
module m6
58
  interface
59
    function f6()
60
      real f6(:)
61
      allocatable :: f6
62
    end function
63
  end interface
64
end module
65
 
66
! { dg-final { cleanup-modules "m1 m2 m3 m4 m5 m6" } }

powered by: WebSVN 2.1.0

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