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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [tabs1.f90] - Blame information for rev 841

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


        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	273	jeremybenn	`if (b().ne.2) call abort`
2			`contains`
3			`subroutine a`
4			`!$omp parallel`
5			`!$omp end parallel`
6			`end subroutine a`
7			`function b()`
8			`integer :: b`
9			`b = 1`
10			`!$ b = 2`
11			`end function b`
12			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [tabs1.f90] - Blame information for rev 841