mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
34 lines
795 B
Fortran
34 lines
795 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/47042
|
|
!
|
|
! Contribued by Jerry DeLisle
|
|
!
|
|
|
|
program bug
|
|
|
|
contains
|
|
function get_cstring ()
|
|
character :: get_cstring
|
|
character, pointer :: ptmp
|
|
character, allocatable :: atmp
|
|
|
|
get_cstring = ptmp(i) ! { dg-error "must have an explicit function interface" }
|
|
get_cstring = atmp(i) ! { dg-error "must have an explicit function interface" }
|
|
end function
|
|
|
|
function get_cstring2 ()
|
|
EXTERNAL :: ptmp, atmp
|
|
character :: get_cstring2
|
|
character, pointer :: ptmp
|
|
character, allocatable :: atmp
|
|
|
|
get_cstring2 = atmp(i) ! { dg-error "must have an explicit function interface" }
|
|
|
|
! The following is regarded as call to a procedure pointer,
|
|
! which is in principle valid:
|
|
get_cstring2 = ptmp(i)
|
|
end function
|
|
|
|
end program
|