Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/dshift_3.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children 1830386684a0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! PR fortran/50753
kono
parents:
diff changeset
3 subroutine foo(i, j, k)
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 implicit none
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 integer(4), intent(in) :: i, j
kono
parents:
diff changeset
8 integer(8), intent(in) :: k
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 print *, dshiftl(i, j, 134) ! { dg-error "must be less than or equal" }
kono
parents:
diff changeset
11 print *, dshiftl(z'FFF', j, 134) ! { dg-error "must be less than or equal" }
kono
parents:
diff changeset
12 print *, dshiftl(i, j, -10) ! { dg-error "must be nonnegative" }
kono
parents:
diff changeset
13 print *, dshiftl(z'FFF', z'EEE', 10) ! { dg-error "cannot both be" }
kono
parents:
diff changeset
14 print *, dshiftl(z'FFF', j, 10)
kono
parents:
diff changeset
15 print *, dshiftl(i, z'EEE', 10)
kono
parents:
diff changeset
16 print *, dshiftl(i, j, 10)
kono
parents:
diff changeset
17 print *, dshiftl(i, k, 10) ! { dg-error "must be the same type and kind" }
kono
parents:
diff changeset
18 print *, dshiftl(k, j, 10) ! { dg-error "must be the same type and kind" }
kono
parents:
diff changeset
19 print *, dshiftl(i, j, k)
kono
parents:
diff changeset
20 print *, dshiftl(i, j, z'd')
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 print *, dshiftr(i, j, 134) ! { dg-error "must be less than or equal" }
kono
parents:
diff changeset
23 print *, dshiftr(z'FFF', j, 134) ! { dg-error "must be less than or equal" }
kono
parents:
diff changeset
24 print *, dshiftr(i, j, -10) ! { dg-error "must be nonnegative" }
kono
parents:
diff changeset
25 print *, dshiftr(z'FFF', z'EEE', 10) ! { dg-error "cannot both be" }
kono
parents:
diff changeset
26 print *, dshiftr(z'FFF', j, 10)
kono
parents:
diff changeset
27 print *, dshiftr(i, z'EEE', 10)
kono
parents:
diff changeset
28 print *, dshiftr(i, j, 10)
kono
parents:
diff changeset
29 print *, dshiftr(i, k, 10) ! { dg-error "must be the same type and kind" }
kono
parents:
diff changeset
30 print *, dshiftr(k, j, 10) ! { dg-error "must be the same type and kind" }
kono
parents:
diff changeset
31 print *, dshiftr(i, j, k)
kono
parents:
diff changeset
32 print *, dshiftr(i, j, z'd')
kono
parents:
diff changeset
33
kono
parents:
diff changeset
34 end subroutine foo