! { dg-do run } | |
! PR 52608 | |
! Testcase reduced from NIST testsuite FM110 | |
program fm110_snippet | |
implicit none | |
real :: aavs | |
character(len=100) :: s(2), s2(2) | |
AAVS = .087654 | |
35043 FORMAT (" ",16X,"COMPUTED: ",22X,1P/26X,F5.4,3X,2P,F5.3,+3P," ",& | |
(23X,F6.2),3X) | |
5043 FORMAT (17X,"CORRECT: ",/24X,& | |
" .8765 8.765 87.65") | |
WRITE (s,35043) AAVS,AAVS,AAVS | |
WRITE (s2,5043) | |
if (s(2) /= s2(2)) STOP 1 | |
end program fm110_snippet | |