OpenCores

URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_pointer_assign_2.f90] - Rev 801

Go to most recent revision | Compare with Previous | Blame | View Log

! { dg-do compile }
! Tests the fix for PRs20895 and 25030, where pointer assignments
! of different length characters were accepted.
  character(4), target :: ch1(2)
  character(4), pointer :: ch2(:)
  character(5), pointer :: ch3(:)

  ch2 => ch1  ! Check correct is OK
  ch3 => ch1  ! { dg-error "Unequal character lengths \\(5/4\\)" }

end

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.