pr36192.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/pr36192.f90

blob: 7ff53155b27195feb317459876dd8acebd11983d (plain)

! { dg-do compile }
! PR fortran/36192.f90
!
program three_body
  real, parameter :: n = 2, d = 2
  real, dimension(n,d) :: x  ! { dg-error "Expecting a scalar INTEGER" }
  x(1,:) = (/ 1.0, 0.0 /)
end program three_body