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

blob: 11a5d7b175a59c23c0a1e1713aaef3d72bc01fa9 (plain)

! { dg-do compile }
! { dg-options "-funsigned" }
program memain
  unsigned :: a
  a = 1u
  print *,complex(1.0,a) !  { dg-error "shall not be UNSIGNED" }
  print *,complex(a,1.0) !  { dg-error "shall not be UNSIGNED" }
end program memain