Searched refs:shape1 (Results 1 - 6 of 6) sorted by relevance
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | reshape_order_5.f90 | 7 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 D | reshape_order_1.f90 | 7 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main 14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
|
H A D | reshape_order_2.f90 | 7 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main 14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
|
H A D | reshape_order_3.f90 | 7 integer, dimension(2) :: shape1 = (/ 2, 3/) variable in program:main 14 write (unit=l2,fmt=*) reshape(source1, shape1, pad1, (/i1, i2/)) ! Invalid
|
H A D | reshape_order_4.f90 | 7 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 D | interface.c | 1203 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