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
14