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_4.f03] - Blame information for rev 414

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


! { dg-do compile }
module A
  use, intrinsic :: iso_c_binding
contains
  subroutine pA() bind(c, name='printf') ! { dg-error "collides" }
    print *, 'hello from pA'
  end subroutine pA
end module A
 
module B
  use, intrinsic :: iso_c_binding
 
contains
  subroutine pB() bind(c, name='printf') ! { dg-error "collides" }
    print *, 'hello from pB'
  end subroutine pB
end module B
 
module C
use A
use B ! { dg-error "Can't open module file" }
end module C
 
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`module A`
3			`use, intrinsic :: iso_c_binding`
4			`contains`
5			`subroutine pA() bind(c, name='printf') ! { dg-error "collides" }`
6			`print *, 'hello from pA'`
7			`end subroutine pA`
8			`end module A`
9
10			`module B`
11			`use, intrinsic :: iso_c_binding`
12
13			`contains`
14			`subroutine pB() bind(c, name='printf') ! { dg-error "collides" }`
15			`print *, 'hello from pB'`
16			`end subroutine pB`
17			`end module B`
18
19			`module C`
20			`use A`
21			`use B ! { dg-error "Can't open module file" }`
22			`end module C`
23
24

Browse

Tools

Subversion Repositories openrisc_me

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