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
|