blob: 5121063f5f38701939563c792117549f6039e422 (
plain)
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
|
! { dg-do compile }
!
! PR fortran/92277
!
! Contributed by José Rui Faustino de Sousa
!
module arr_m
implicit none
contains
subroutine arr_set(this, that)
integer, intent(out) :: this(..)
integer, optional, intent(out) :: that(..)
interface
subroutine arr_set_c(this) bind(c)
use, intrinsic :: iso_c_binding, only: c_int
implicit none
integer(kind=c_int), intent(out) :: this(..)
end subroutine arr_set_c
subroutine arr_set_c_opt(this) bind(c)
use, intrinsic :: iso_c_binding, only: c_int
implicit none
integer(kind=c_int), optional, intent(out) :: this(..)
end subroutine arr_set_c_opt
end interface
call arr_set_c(this)
call arr_set_c(that)
call arr_set_c_opt(this)
call arr_set_c_opt(that)
end subroutine arr_set
end module arr_m
|