Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr40587.f @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 C PR traget/40587
kono
parents:
diff changeset
2 C { dg-do compile }
kono
parents:
diff changeset
3 C { dg-options "-O2" }
kono
parents:
diff changeset
4 subroutine TEST(i, r, result)
kono
parents:
diff changeset
5 implicit none
kono
parents:
diff changeset
6 integer i
kono
parents:
diff changeset
7 REAL*8 r
kono
parents:
diff changeset
8 REAL*8 result
kono
parents:
diff changeset
9 REAL*8 r2
kono
parents:
diff changeset
10 if(i.eq.0) then
kono
parents:
diff changeset
11 r2 = r
kono
parents:
diff changeset
12 else
kono
parents:
diff changeset
13 call ERROR()
kono
parents:
diff changeset
14 endif
kono
parents:
diff changeset
15 result = r2
kono
parents:
diff changeset
16 return
kono
parents:
diff changeset
17 end