34 lines
1.3 KiB
Fortran
34 lines
1.3 KiB
Fortran
! { 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" } }
|