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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [new_line.f90] - Blame information for rev 154

Details | Compare with Previous | View Log


! { dg-do run }
! Checks Fortran 2003's new_line intrinsic function
! PR fortran/28585
program new_line_check
    implicit none
    if(achar(10) /= new_line('a')) call abort()
end program new_line_check

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! Checks Fortran 2003's new_line intrinsic function`
3			`! PR fortran/28585`
4			`program new_line_check`
5			`implicit none`
6			`if(achar(10) /= new_line('a')) call abort()`
7			`end program new_line_check`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [new_line.f90] - Blame information for rev 154