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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [tabs2.f] - Blame information for rev 801

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


! { dg-options "-ffixed-form" }
      if (b().ne.2) call abort
      contains
      subroutine a
!$omp parallel
!$omp   end     parallel
        end subroutine a
      function b()
      integer :: b
        b = 1
!$      b = 2
      end function b
      end

Line No.	Rev	Author	Line
1	735	jeremybenn	`! { dg-options "-ffixed-form" }`
2			`if (b().ne.2) call abort`
3			`contains`
4			`subroutine a`
5			`!$omp parallel`
6			`!$omp end parallel`
7			`end subroutine a`
8			`function b()`
9			`integer :: b`
10			`b = 1`
11			`!$ b = 2`
12			`end function b`
13			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [tabs2.f] - Blame information for rev 801