comparison gcc/testsuite/gfortran.dg/entry_8.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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