gcc/testsuite/gfortran.dg/func_result_7.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 50073: gfortran must not accept function name when result name is present
   4 !
   5 ! Contributed by Vittorio Zecca <zeccav@gmail.com>
   6
   7 function fun() result(f)
   8   pointer fun       ! { dg-error "not allowed" }
   9   dimension fun(1)  ! { dg-error "not allowed" }
  10   f=0
  11 end