mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
23 lines
434 B
Fortran
23 lines
434 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR34429 in which function charlens that were
|
|
! USE associated would cause an error.
|
|
!
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
module m
|
|
integer, parameter :: strlen = 5
|
|
end module m
|
|
|
|
character(strlen) function test()
|
|
use m
|
|
test = 'A'
|
|
end function test
|
|
|
|
interface
|
|
character(strlen) function test()
|
|
use m
|
|
end function test
|
|
end interface
|
|
print *, test()
|
|
end
|