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