Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/statement_function_1.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do compile }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! PR fortran/84276
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 subroutine stepns(hh, h, s, w)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 real, intent(inout) :: h, hh, s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 real, intent(out) :: w
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 real :: qofs
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 integer i
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 qofs(s) = s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 w = qofs(hh + h)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 i = 42
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 w = qofs(i) ! { dg-error "Type mismatch in argument" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 end subroutine stepns
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 subroutine step(hh, h, s, w)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 real, intent(inout) :: h, hh, s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 real, intent(out) :: w
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 real :: qofs
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 integer i
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 qofs(s, i) = i * s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 i = 42
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 w = qofs(hh, i)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 w = qofs(i = i, s = hh) ! { dg-error "invalid in a statement function" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 end subroutine step
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 ! { dg-prune-output " Obsolescent feature" }