annotate gcc/testsuite/gfortran.dg/eoshift_7.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
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 program main
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 type t
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 integer :: x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 end type t
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 type(t), dimension(2) :: a, b
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 a(1)%x = 1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 a(2)%x = 2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 b = eoshift(a,1) ! { dg-error "Missing 'boundary' argument to 'eoshift' intrinsic" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 print *,b%x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 end program main