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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [binding_label_tests_12.f03] - Blame information for rev 414

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

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
2
! This verifies that the compiler will correctly accpet the name="", write out
3
! an empty string for the binding label to the module file, and then read it
4
! back in.  Also, during gfc_verify_binding_labels, the name="" will prevent
5
! any verification (since there is no label to verify).
6
module one
7
contains
8
  subroutine foo() bind(c)
9
  end subroutine foo
10
end module one
11
 
12
module two
13
contains
14
  ! This procedure is only used accessed in C
15
  ! as procedural pointer
16
  subroutine foo() bind(c, name="")
17
  end subroutine foo
18
end module two
19
 
20
use one, only: foo_one => foo
21
use two, only: foo_two => foo
22
end
23
 
24
! { dg-final { cleanup-modules "one two" } }

powered by: WebSVN 2.1.0

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