gcc/testsuite/gfortran.dg/entry_8.f90

   1 ! { dg-do compile }
   2 ! Check for PR 27478
   3       FUNCTION X()
   4       ENTRY X1
   5       IF (X .GT. 0) CALL FOO(X)
   6       IF (Y .GT. 0) CALL FOO(Y)
   7       END
   8
   9       FUNCTION TSL(PIN)
  10       ENTRY TSL1(PIN)
  11       IF (DBLE(TSL) .GT. PIN) TSL = 705.47
  12       TSL= PPP(TSL)
  13       END