URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [libgomp/] [testsuite/] [libgomp.fortran/] [tabs2.f] - Rev 273
Go to most recent revision | Compare with Previous | Blame | 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
Go to most recent revision | Compare with Previous | Blame | View Log