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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_present.f90] - Blame information for rev 823

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


! { dg-do compile }
! This tests the fix for the regression PR25785, where line 7 started
! generating an assumed size error.
! Contributed by Dale Ranta  
      subroutine my_sio_file_write_common(data_c1)
        character,   intent(in), optional :: data_c1(*)
        if (present(data_c1)) then
        endif
      end subroutine my_sio_file_write_common

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! This tests the fix for the regression PR25785, where line 7 started`
3			`! generating an assumed size error.`
4			`! Contributed by Dale Ranta`
5			`subroutine my_sio_file_write_common(data_c1)`
6			`character, intent(in), optional :: data_c1(*)`
7			`if (present(data_c1)) then`
8			`endif`
9			`end subroutine my_sio_file_write_common`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_present.f90] - Blame information for rev 823