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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! PR32612 gfortran - incorrectly flags error on interface module
3
! Test case is that of the reporters
4
   module files_module
5
      implicit none
6
          integer, parameter :: REAL8 = SELECTED_REAL_KIND(12)
7
      save
8
      private
9
      interface my_sio_file_read_common
10
        module procedure my_sio_file_read_common ! This was rejected before
11
      end interface
12
    contains
13
      subroutine my_sio_file_read_all_i4(serial, data, data_lengths, error)
14
        logical, intent(in)  :: serial
15
        integer, intent(out) :: data(*)
16
        integer, intent(in)  :: data_lengths(0:*)
17
        integer, intent(out) :: error
18
        call my_sio_file_read_common(data_lengths, error, data_i4 = data)
19
      end subroutine my_sio_file_read_all_i4
20
      subroutine my_sio_file_read_common(data_lengths, error, &
21
                                         data_i4, &
22
                                         data_r8)
23
        integer,     intent(in)  :: data_lengths(0:*)
24
        integer,     intent(out) :: error
25
        integer,     intent(out), optional :: data_i4(*)
26
        real(REAL8), intent(out), optional :: data_r8(*)
27
          error=0
28
          data_i4(1)=0
29
          data_r8(1)=0
30
      end subroutine my_sio_file_read_common
31
    end module files_module
32
 
33
! { dg-final { cleanup-modules "files_module" } }

powered by: WebSVN 2.1.0

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