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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! PR fortran/37201
3
!
4
! Before character arrays were allowed as bind(C) return value.
5
!
6
implicit none
7
  INTERFACE
8
    FUNCTION my() BIND(C,name="my") RESULT(r) ! { dg-error "cannot be an array" }
9
      USE iso_c_binding
10
      CHARACTER(kind=C_CHAR) :: r(10)
11
    END FUNCTION
12
  END INTERFACE
13
  INTERFACE
14
    FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "cannot be a character string" }
15
      USE iso_c_binding
16
      CHARACTER(kind=C_CHAR,len=2) :: r
17
    END FUNCTION
18
  END INTERFACE
19
END

powered by: WebSVN 2.1.0

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