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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [auto_internal_assumed.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Test fix of PR24705 - ICE on assumed character length
3
! internal function.
4
!
5
character (6) :: c
6
  c = f1 ()
7
  if (c .ne. 'abcdef') call abort
8
contains
9
  function f1 () ! { dg-error "must not be assumed length" }
10
    character (*) :: f1
11
    f1 = 'abcdef'
12
  end function f1
13
end

powered by: WebSVN 2.1.0

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