Вывод с использованием цикла DO с меткой на операторе continue

!----------------------------------------------

INTEGER::f=1

OPEN(unit=f,file='Lab7.out')

DO 4 I=1,N

WRITE(f,*) A(I)

4 CONTINUE

CLOSE(f)

INTEGER f/1/;

OPEN(unit=f,file='Lab7.out');

DO 4 I=1,N

WRITE(f,*) A(I);

4 CONTINUE;

CLOSE(f);

OPEN(unit=1,file='Lab7.out')

DO 4 I=1,N

WRITE(1,*) A(I)

4 CONTINUE

CLOSE(1)

OPEN(4,file='Lab7.out');

DO 4 I=1,N;

WRITE(4,*) A(I);

4 CONTINUE;

CLOSE(4);