2 ! Tests the fix for PR30626, in which the substring reference
3 ! for an internal file would cause an ICE.
5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
10 character(len=12) :: cdate(3) ! yyyymmddhhmm
16 type(year_t) :: time(3)
18 cdate = (/'200612231200', '200712231200', &
21 time = date_to_year (cdate)
22 if (any (time%year .ne. (/2006, 2007, 2008/))) call abort ()
24 call month_to_date ((/8, 9, 10/), cdate)
25 if ( any (cdate .ne. (/'200608231200', '200709231200', &
26 '200810231200'/))) call abort ()
30 function date_to_year (d) result (y)
31 character(len=12) :: d(3)
32 type(year_t) :: y(size (d, 1))
33 read (cdate(:)(1:4),'(i4)') time% year
34 end function date_to_year
36 subroutine month_to_date (m, d)
37 character(len=12) :: d(3)
39 write (cdate(:)(5:6),'(i2.2)') m
40 end subroutine month_to_date