diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90 b/gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90 new file mode 100644 index 000000000..40f538242 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/intrinsic_argument_conformance_1.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +program main + real :: av(2), bv(4) + real :: a(2,2) + logical :: lo(3,2) + print *,dot_product(av, bv) ! { dg-error "Different shape" } + print *,pack(a, lo) ! { dg-error "Different shape" } + print *,merge(av, bv, lo(1,:)) ! { dg-error "Different shape" } + print *,matmul(bv,a) ! { dg-error "Different shape" } +end program main |