diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_8.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_8.f90 b/gcc/testsuite/gfortran.dg/entry_8.f90 new file mode 100644 index 000000000..02ec2b904 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/entry_8.f90 @@ -0,0 +1,13 @@ +! { dg-do compile } +! Check for PR 27478 + FUNCTION X() + ENTRY X1 + IF (X .GT. 0) CALL FOO(X) + IF (Y .GT. 0) CALL FOO(Y) + END + + FUNCTION TSL(PIN) + ENTRY TSL1(PIN) + IF (DBLE(TSL) .GT. PIN) TSL = 705.47 + TSL= PPP(TSL) + END |