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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_present.f90] - Blame information for rev 12

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	12	jlechner	`! { 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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_present.f90] - Blame information for rev 12