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