gcc/testsuite/gfortran.dg/pr78739.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-w" }
   3 ! PR fortran/78739
   4 ! Code contributed Gerhard Steinmetz
   5 function f(n)
   6    f() = n    ! { dg-error "conflicts with function name" }
   7 end
   8
   9 function g()
  10    g(x) = x   ! { dg-error "conflicts with function name" }
  11 end
  12
  13 function a()  ! This should cause an error, but cannot be easily detected!
  14    a() = x
  15 end