mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
318 B
Fortran
13 lines
318 B
Fortran
! { dg-do compile }
|
|
! PR 20323
|
|
! We didn't verify that character length expressions are specification
|
|
! expressions.
|
|
function testpresent(arg)
|
|
integer, intent(in), optional :: arg
|
|
character(len=arg) :: s ! { dg-error "OPTIONAL" }
|
|
logical :: testpresent
|
|
|
|
testpresent=.true.
|
|
|
|
end function testpresent
|