Subversion Repositories openrisc

! { dg-do compile }

! PR32612 gfortran - incorrectly flags error on interface module

! Test case is that of the reporters

   module files_module

      implicit none

          integer, parameter :: REAL8 = SELECTED_REAL_KIND(12)

      save

      private

      interface my_sio_file_read_common

        module procedure my_sio_file_read_common ! This was rejected before

      end interface

    contains

      subroutine my_sio_file_read_all_i4(serial, data, data_lengths, error)

        logical, intent(in)  :: serial

        integer, intent(out) :: data(*)

        integer, intent(in)  :: data_lengths(0:*)

        integer, intent(out) :: error

        call my_sio_file_read_common(data_lengths, error, data_i4 = data)

      end subroutine my_sio_file_read_all_i4

      subroutine my_sio_file_read_common(data_lengths, error, &

                                         data_i4, &

                                         data_r8)

        integer,     intent(in)  :: data_lengths(0:*)

        integer,     intent(out) :: error

        integer,     intent(out), optional :: data_i4(*)

        real(REAL8), intent(out), optional :: data_r8(*)

          error=0

          data_i4(1)=0

          data_r8(1)=0

      end subroutine my_sio_file_read_common

    end module files_module

! { dg-final { cleanup-modules "files_module" } }