gcc/testsuite/gfortran.dg/spec_expr_1.f90

   1 ! { dg-do compile }
   2 ! PR 20323
   3 ! We didn't verify that character length expressions are specification
   4 ! expressions.
   5 function testpresent(arg)
   6    integer, intent(in), optional :: arg
   7    character(len=arg) :: s ! { dg-error "OPTIONAL" }
   8    logical :: testpresent
   9
  10    testpresent=.true.
  11
  12 end function testpresent