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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR 35831: [F95] Shape mismatch check missing for dummy procedure argument
4
!
5
! Contributed by Tobias Burnus 
6
 
7
program test
8
 
9
  implicit none
10
 
11
  interface
12
    subroutine one(a)
13
      integer a(:)
14
    end subroutine
15
    subroutine two(a)
16
      integer a(2)
17
    end subroutine
18
  end interface
19
 
20
  call foo(two)  ! { dg-error "Shape mismatch in argument" }
21
  call bar(two)  ! { dg-error "Shape mismatch in argument" }
22
 
23
contains
24
 
25
  subroutine foo(f1)
26
    procedure(one) :: f1
27
  end subroutine foo
28
 
29
  subroutine bar(f2)
30
    interface
31
      subroutine f2(a)
32
        integer a(:)
33
      end subroutine
34
    end interface
35
  end subroutine bar
36
 
37
end program

powered by: WebSVN 2.1.0

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