1! { 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