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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr47331.f90] - Blame information for rev 774

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


! PR fortran/47331
! { dg-do compile }
! { dg-options "-fopenmp -fwhole-file" }
 
subroutine foo
  !$omp parallel
    call bar ()
  !$omp end parallel
end subroutine foo
 
subroutine bar
  integer :: k
  do k=1,5
    call baz (k)
  end do
end subroutine bar
 
subroutine baz (k)
  integer :: k
end subroutine
 
program pr47331
  call foo
end program pr47331

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/47331`
2			`! { dg-do compile }`
3			`! { dg-options "-fopenmp -fwhole-file" }`
4
5			`subroutine foo`
6			`!$omp parallel`
7			`call bar ()`
8			`!$omp end parallel`
9			`end subroutine foo`
10
11			`subroutine bar`
12			`integer :: k`
13			`do k=1,5`
14			`call baz (k)`
15			`end do`
16			`end subroutine bar`
17
18			`subroutine baz (k)`
19			`integer :: k`
20			`end subroutine`
21
22			`program pr47331`
23			`call foo`
24			`end program pr47331`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr47331.f90] - Blame information for rev 774