1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
! { 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" } }
|
