2 ! PR32612 gfortran - incorrectly flags error on interface module
3 ! Test case is that of the reporters
6 integer, parameter :: REAL8 = SELECTED_REAL_KIND(12)
9 interface my_sio_file_read_common
10 module procedure my_sio_file_read_common ! This was rejected before
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, &
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(*)
30 end subroutine my_sio_file_read_common
31 end module files_module