argument_checking_20.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/argument_checking_20.f90

blob: 12788cc868c586ef1c91a372b7555dbf694a0e13 (plain)

! { dg-do compile }
program main
  real :: a(10), b(10,10)
! This should be caugt
  call foo(1.0) ! { dg-error "Rank mismatch" }
  call foo(b)   ! { dg-error "Rank mismatch" }
! This is OK
  call bar(a)
  call bar(b)

end program main