Searched refs:shape1 (Results 1 - 6 of 6) sorted by relevance

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dreshape_order_5.f907 integer, dimension(2) :: shape1 = (/ 2, 5/) variable
11 t = reshape(source1, shape1, pad1, (/2, 1/)) ! ok
12 t = reshape(source1, shape1, pad1, (/2.1, 1.2/)) ! { dg-error "must be INTEGER" }
13 t = reshape(source1, shape1, pad1, (/2, 2/)) ! { dg-error "invalid permutation" }
14 t = reshape(source1, shape1, pad1, (/2, 3/)) ! { dg-error "out-of-range dimension" }
15 t = reshape(source1, shape1, pad1, (/2/)) ! { dg-error "wrong number of elements" }
H A Dreshape_order_1.f907 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main
14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
H A Dreshape_order_2.f907 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main
14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
H A Dreshape_order_3.f907 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main
14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
H A Dreshape_order_4.f907 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main
14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
/haiku-buildtools/gcc/gcc/fortran/
H A Dinterface.c1203 gfc_expr *shape1, *shape2; local
1222 shape1 = gfc_subtract (gfc_copy_expr (s1->as->upper[i]),
1226 compval = gfc_dep_compare_expr (shape1, shape2);
1227 gfc_free_expr (shape1);
1376 gfc_expr *shape1, *shape2; local
1387 shape1 = gfc_subtract (gfc_copy_expr (r1->as->upper[i]),
1391 compval = gfc_dep_compare_expr (shape1, shape2);
1392 gfc_free_expr (shape1);

Completed in 50 milliseconds